BasCrunch2,ffe 952 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
REM Copyright 2008 Castle Technology Ltd
REM
REM Licensed under the Apache License, Version 2.0 (the "License");
REM you may not use this file except in compliance with the License.
REM You may obtain a copy of the License at
REM
REM     http://www.apache.org/licenses/LICENSE-2.0
REM
REM Unless required by applicable law or agreed to in writing, software
REM distributed under the License is distributed on an "AS IS" BASIS,
REM WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
REM See the License for the specific language governing permissions and
REM limitations under the License.
REM

16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
DIM buffer% 1024
SYS "OS_ReadVarVal","BasCrunch$InFile",buffer%,1024,0,3 TO ,,length%
buffer%?length%=13

TEXTLOAD $buffer%

DIM buffer% 4
SYS "OS_ReadVarVal","BasCrunch$CrunchVar",buffer%,4

CRUNCH !buffer%

DIM buffer% 1024
SYS "OS_ReadVarVal","BasCrunch$OutFile",buffer%,1024,0,3 TO ,,length%
buffer%?length%=13

SAVE $buffer%

QUIT