Added Snake
This commit is contained in:
acn
parent
50c053f779
commit
fcbbbbc21b
|
|
@ -30,6 +30,7 @@ See this repository: https://git.imzadi.de/acn/backgammon-vt100
|
|||
* [Blocks](Blocks/)
|
||||
* [Robots](Robots/)
|
||||
* [FindThatMine](FindThatMine/)
|
||||
* [Snake](Snake/)
|
||||
|
||||
## More Games on the Interwebs
|
||||
|
||||
|
|
|
|||
|
|
@ -0,0 +1,339 @@
|
|||
GNU GENERAL PUBLIC LICENSE
|
||||
Version 2, June 1991
|
||||
|
||||
Copyright (C) 1989, 1991 Free Software Foundation, Inc.,
|
||||
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
||||
Everyone is permitted to copy and distribute verbatim copies
|
||||
of this license document, but changing it is not allowed.
|
||||
|
||||
Preamble
|
||||
|
||||
The licenses for most software are designed to take away your
|
||||
freedom to share and change it. By contrast, the GNU General Public
|
||||
License is intended to guarantee your freedom to share and change free
|
||||
software--to make sure the software is free for all its users. This
|
||||
General Public License applies to most of the Free Software
|
||||
Foundation's software and to any other program whose authors commit to
|
||||
using it. (Some other Free Software Foundation software is covered by
|
||||
the GNU Lesser General Public License instead.) You can apply it to
|
||||
your programs, too.
|
||||
|
||||
When we speak of free software, we are referring to freedom, not
|
||||
price. Our General Public Licenses are designed to make sure that you
|
||||
have the freedom to distribute copies of free software (and charge for
|
||||
this service if you wish), that you receive source code or can get it
|
||||
if you want it, that you can change the software or use pieces of it
|
||||
in new free programs; and that you know you can do these things.
|
||||
|
||||
To protect your rights, we need to make restrictions that forbid
|
||||
anyone to deny you these rights or to ask you to surrender the rights.
|
||||
These restrictions translate to certain responsibilities for you if you
|
||||
distribute copies of the software, or if you modify it.
|
||||
|
||||
For example, if you distribute copies of such a program, whether
|
||||
gratis or for a fee, you must give the recipients all the rights that
|
||||
you have. You must make sure that they, too, receive or can get the
|
||||
source code. And you must show them these terms so they know their
|
||||
rights.
|
||||
|
||||
We protect your rights with two steps: (1) copyright the software, and
|
||||
(2) offer you this license which gives you legal permission to copy,
|
||||
distribute and/or modify the software.
|
||||
|
||||
Also, for each author's protection and ours, we want to make certain
|
||||
that everyone understands that there is no warranty for this free
|
||||
software. If the software is modified by someone else and passed on, we
|
||||
want its recipients to know that what they have is not the original, so
|
||||
that any problems introduced by others will not reflect on the original
|
||||
authors' reputations.
|
||||
|
||||
Finally, any free program is threatened constantly by software
|
||||
patents. We wish to avoid the danger that redistributors of a free
|
||||
program will individually obtain patent licenses, in effect making the
|
||||
program proprietary. To prevent this, we have made it clear that any
|
||||
patent must be licensed for everyone's free use or not licensed at all.
|
||||
|
||||
The precise terms and conditions for copying, distribution and
|
||||
modification follow.
|
||||
|
||||
GNU GENERAL PUBLIC LICENSE
|
||||
TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
|
||||
|
||||
0. This License applies to any program or other work which contains
|
||||
a notice placed by the copyright holder saying it may be distributed
|
||||
under the terms of this General Public License. The "Program", below,
|
||||
refers to any such program or work, and a "work based on the Program"
|
||||
means either the Program or any derivative work under copyright law:
|
||||
that is to say, a work containing the Program or a portion of it,
|
||||
either verbatim or with modifications and/or translated into another
|
||||
language. (Hereinafter, translation is included without limitation in
|
||||
the term "modification".) Each licensee is addressed as "you".
|
||||
|
||||
Activities other than copying, distribution and modification are not
|
||||
covered by this License; they are outside its scope. The act of
|
||||
running the Program is not restricted, and the output from the Program
|
||||
is covered only if its contents constitute a work based on the
|
||||
Program (independent of having been made by running the Program).
|
||||
Whether that is true depends on what the Program does.
|
||||
|
||||
1. You may copy and distribute verbatim copies of the Program's
|
||||
source code as you receive it, in any medium, provided that you
|
||||
conspicuously and appropriately publish on each copy an appropriate
|
||||
copyright notice and disclaimer of warranty; keep intact all the
|
||||
notices that refer to this License and to the absence of any warranty;
|
||||
and give any other recipients of the Program a copy of this License
|
||||
along with the Program.
|
||||
|
||||
You may charge a fee for the physical act of transferring a copy, and
|
||||
you may at your option offer warranty protection in exchange for a fee.
|
||||
|
||||
2. You may modify your copy or copies of the Program or any portion
|
||||
of it, thus forming a work based on the Program, and copy and
|
||||
distribute such modifications or work under the terms of Section 1
|
||||
above, provided that you also meet all of these conditions:
|
||||
|
||||
a) You must cause the modified files to carry prominent notices
|
||||
stating that you changed the files and the date of any change.
|
||||
|
||||
b) You must cause any work that you distribute or publish, that in
|
||||
whole or in part contains or is derived from the Program or any
|
||||
part thereof, to be licensed as a whole at no charge to all third
|
||||
parties under the terms of this License.
|
||||
|
||||
c) If the modified program normally reads commands interactively
|
||||
when run, you must cause it, when started running for such
|
||||
interactive use in the most ordinary way, to print or display an
|
||||
announcement including an appropriate copyright notice and a
|
||||
notice that there is no warranty (or else, saying that you provide
|
||||
a warranty) and that users may redistribute the program under
|
||||
these conditions, and telling the user how to view a copy of this
|
||||
License. (Exception: if the Program itself is interactive but
|
||||
does not normally print such an announcement, your work based on
|
||||
the Program is not required to print an announcement.)
|
||||
|
||||
These requirements apply to the modified work as a whole. If
|
||||
identifiable sections of that work are not derived from the Program,
|
||||
and can be reasonably considered independent and separate works in
|
||||
themselves, then this License, and its terms, do not apply to those
|
||||
sections when you distribute them as separate works. But when you
|
||||
distribute the same sections as part of a whole which is a work based
|
||||
on the Program, the distribution of the whole must be on the terms of
|
||||
this License, whose permissions for other licensees extend to the
|
||||
entire whole, and thus to each and every part regardless of who wrote it.
|
||||
|
||||
Thus, it is not the intent of this section to claim rights or contest
|
||||
your rights to work written entirely by you; rather, the intent is to
|
||||
exercise the right to control the distribution of derivative or
|
||||
collective works based on the Program.
|
||||
|
||||
In addition, mere aggregation of another work not based on the Program
|
||||
with the Program (or with a work based on the Program) on a volume of
|
||||
a storage or distribution medium does not bring the other work under
|
||||
the scope of this License.
|
||||
|
||||
3. You may copy and distribute the Program (or a work based on it,
|
||||
under Section 2) in object code or executable form under the terms of
|
||||
Sections 1 and 2 above provided that you also do one of the following:
|
||||
|
||||
a) Accompany it with the complete corresponding machine-readable
|
||||
source code, which must be distributed under the terms of Sections
|
||||
1 and 2 above on a medium customarily used for software interchange; or,
|
||||
|
||||
b) Accompany it with a written offer, valid for at least three
|
||||
years, to give any third party, for a charge no more than your
|
||||
cost of physically performing source distribution, a complete
|
||||
machine-readable copy of the corresponding source code, to be
|
||||
distributed under the terms of Sections 1 and 2 above on a medium
|
||||
customarily used for software interchange; or,
|
||||
|
||||
c) Accompany it with the information you received as to the offer
|
||||
to distribute corresponding source code. (This alternative is
|
||||
allowed only for noncommercial distribution and only if you
|
||||
received the program in object code or executable form with such
|
||||
an offer, in accord with Subsection b above.)
|
||||
|
||||
The source code for a work means the preferred form of the work for
|
||||
making modifications to it. For an executable work, complete source
|
||||
code means all the source code for all modules it contains, plus any
|
||||
associated interface definition files, plus the scripts used to
|
||||
control compilation and installation of the executable. However, as a
|
||||
special exception, the source code distributed need not include
|
||||
anything that is normally distributed (in either source or binary
|
||||
form) with the major components (compiler, kernel, and so on) of the
|
||||
operating system on which the executable runs, unless that component
|
||||
itself accompanies the executable.
|
||||
|
||||
If distribution of executable or object code is made by offering
|
||||
access to copy from a designated place, then offering equivalent
|
||||
access to copy the source code from the same place counts as
|
||||
distribution of the source code, even though third parties are not
|
||||
compelled to copy the source along with the object code.
|
||||
|
||||
4. You may not copy, modify, sublicense, or distribute the Program
|
||||
except as expressly provided under this License. Any attempt
|
||||
otherwise to copy, modify, sublicense or distribute the Program is
|
||||
void, and will automatically terminate your rights under this License.
|
||||
However, parties who have received copies, or rights, from you under
|
||||
this License will not have their licenses terminated so long as such
|
||||
parties remain in full compliance.
|
||||
|
||||
5. You are not required to accept this License, since you have not
|
||||
signed it. However, nothing else grants you permission to modify or
|
||||
distribute the Program or its derivative works. These actions are
|
||||
prohibited by law if you do not accept this License. Therefore, by
|
||||
modifying or distributing the Program (or any work based on the
|
||||
Program), you indicate your acceptance of this License to do so, and
|
||||
all its terms and conditions for copying, distributing or modifying
|
||||
the Program or works based on it.
|
||||
|
||||
6. Each time you redistribute the Program (or any work based on the
|
||||
Program), the recipient automatically receives a license from the
|
||||
original licensor to copy, distribute or modify the Program subject to
|
||||
these terms and conditions. You may not impose any further
|
||||
restrictions on the recipients' exercise of the rights granted herein.
|
||||
You are not responsible for enforcing compliance by third parties to
|
||||
this License.
|
||||
|
||||
7. If, as a consequence of a court judgment or allegation of patent
|
||||
infringement or for any other reason (not limited to patent issues),
|
||||
conditions are imposed on you (whether by court order, agreement or
|
||||
otherwise) that contradict the conditions of this License, they do not
|
||||
excuse you from the conditions of this License. If you cannot
|
||||
distribute so as to satisfy simultaneously your obligations under this
|
||||
License and any other pertinent obligations, then as a consequence you
|
||||
may not distribute the Program at all. For example, if a patent
|
||||
license would not permit royalty-free redistribution of the Program by
|
||||
all those who receive copies directly or indirectly through you, then
|
||||
the only way you could satisfy both it and this License would be to
|
||||
refrain entirely from distribution of the Program.
|
||||
|
||||
If any portion of this section is held invalid or unenforceable under
|
||||
any particular circumstance, the balance of the section is intended to
|
||||
apply and the section as a whole is intended to apply in other
|
||||
circumstances.
|
||||
|
||||
It is not the purpose of this section to induce you to infringe any
|
||||
patents or other property right claims or to contest validity of any
|
||||
such claims; this section has the sole purpose of protecting the
|
||||
integrity of the free software distribution system, which is
|
||||
implemented by public license practices. Many people have made
|
||||
generous contributions to the wide range of software distributed
|
||||
through that system in reliance on consistent application of that
|
||||
system; it is up to the author/donor to decide if he or she is willing
|
||||
to distribute software through any other system and a licensee cannot
|
||||
impose that choice.
|
||||
|
||||
This section is intended to make thoroughly clear what is believed to
|
||||
be a consequence of the rest of this License.
|
||||
|
||||
8. If the distribution and/or use of the Program is restricted in
|
||||
certain countries either by patents or by copyrighted interfaces, the
|
||||
original copyright holder who places the Program under this License
|
||||
may add an explicit geographical distribution limitation excluding
|
||||
those countries, so that distribution is permitted only in or among
|
||||
countries not thus excluded. In such case, this License incorporates
|
||||
the limitation as if written in the body of this License.
|
||||
|
||||
9. The Free Software Foundation may publish revised and/or new versions
|
||||
of the General Public License from time to time. Such new versions will
|
||||
be similar in spirit to the present version, but may differ in detail to
|
||||
address new problems or concerns.
|
||||
|
||||
Each version is given a distinguishing version number. If the Program
|
||||
specifies a version number of this License which applies to it and "any
|
||||
later version", you have the option of following the terms and conditions
|
||||
either of that version or of any later version published by the Free
|
||||
Software Foundation. If the Program does not specify a version number of
|
||||
this License, you may choose any version ever published by the Free Software
|
||||
Foundation.
|
||||
|
||||
10. If you wish to incorporate parts of the Program into other free
|
||||
programs whose distribution conditions are different, write to the author
|
||||
to ask for permission. For software which is copyrighted by the Free
|
||||
Software Foundation, write to the Free Software Foundation; we sometimes
|
||||
make exceptions for this. Our decision will be guided by the two goals
|
||||
of preserving the free status of all derivatives of our free software and
|
||||
of promoting the sharing and reuse of software generally.
|
||||
|
||||
NO WARRANTY
|
||||
|
||||
11. BECAUSE THE PROGRAM IS LICENSED FREE OF CHARGE, THERE IS NO WARRANTY
|
||||
FOR THE PROGRAM, TO THE EXTENT PERMITTED BY APPLICABLE LAW. EXCEPT WHEN
|
||||
OTHERWISE STATED IN WRITING THE COPYRIGHT HOLDERS AND/OR OTHER PARTIES
|
||||
PROVIDE THE PROGRAM "AS IS" WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED
|
||||
OR IMPLIED, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
|
||||
MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. THE ENTIRE RISK AS
|
||||
TO THE QUALITY AND PERFORMANCE OF THE PROGRAM IS WITH YOU. SHOULD THE
|
||||
PROGRAM PROVE DEFECTIVE, YOU ASSUME THE COST OF ALL NECESSARY SERVICING,
|
||||
REPAIR OR CORRECTION.
|
||||
|
||||
12. IN NO EVENT UNLESS REQUIRED BY APPLICABLE LAW OR AGREED TO IN WRITING
|
||||
WILL ANY COPYRIGHT HOLDER, OR ANY OTHER PARTY WHO MAY MODIFY AND/OR
|
||||
REDISTRIBUTE THE PROGRAM AS PERMITTED ABOVE, BE LIABLE TO YOU FOR DAMAGES,
|
||||
INCLUDING ANY GENERAL, SPECIAL, INCIDENTAL OR CONSEQUENTIAL DAMAGES ARISING
|
||||
OUT OF THE USE OR INABILITY TO USE THE PROGRAM (INCLUDING BUT NOT LIMITED
|
||||
TO LOSS OF DATA OR DATA BEING RENDERED INACCURATE OR LOSSES SUSTAINED BY
|
||||
YOU OR THIRD PARTIES OR A FAILURE OF THE PROGRAM TO OPERATE WITH ANY OTHER
|
||||
PROGRAMS), EVEN IF SUCH HOLDER OR OTHER PARTY HAS BEEN ADVISED OF THE
|
||||
POSSIBILITY OF SUCH DAMAGES.
|
||||
|
||||
END OF TERMS AND CONDITIONS
|
||||
|
||||
How to Apply These Terms to Your New Programs
|
||||
|
||||
If you develop a new program, and you want it to be of the greatest
|
||||
possible use to the public, the best way to achieve this is to make it
|
||||
free software which everyone can redistribute and change under these terms.
|
||||
|
||||
To do so, attach the following notices to the program. It is safest
|
||||
to attach them to the start of each source file to most effectively
|
||||
convey the exclusion of warranty; and each file should have at least
|
||||
the "copyright" line and a pointer to where the full notice is found.
|
||||
|
||||
<one line to give the program's name and a brief idea of what it does.>
|
||||
Copyright (C) <year> <name of author>
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
This program 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 General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License along
|
||||
with this program; if not, write to the Free Software Foundation, Inc.,
|
||||
51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
||||
|
||||
Also add information on how to contact you by electronic and paper mail.
|
||||
|
||||
If the program is interactive, make it output a short notice like this
|
||||
when it starts in an interactive mode:
|
||||
|
||||
Gnomovision version 69, Copyright (C) year name of author
|
||||
Gnomovision comes with ABSOLUTELY NO WARRANTY; for details type `show w'.
|
||||
This is free software, and you are welcome to redistribute it
|
||||
under certain conditions; type `show c' for details.
|
||||
|
||||
The hypothetical commands `show w' and `show c' should show the appropriate
|
||||
parts of the General Public License. Of course, the commands you use may
|
||||
be called something other than `show w' and `show c'; they could even be
|
||||
mouse-clicks or menu items--whatever suits your program.
|
||||
|
||||
You should also get your employer (if you work as a programmer) or your
|
||||
school, if any, to sign a "copyright disclaimer" for the program, if
|
||||
necessary. Here is a sample; alter the names:
|
||||
|
||||
Yoyodyne, Inc., hereby disclaims all copyright interest in the program
|
||||
`Gnomovision' (which makes passes at compilers) written by James Hacker.
|
||||
|
||||
<signature of Ty Coon>, 1 April 1989
|
||||
Ty Coon, President of Vice
|
||||
|
||||
This General Public License does not permit incorporating your program into
|
||||
proprietary programs. If your program is a subroutine library, you may
|
||||
consider it more useful to permit linking proprietary applications with the
|
||||
library. If this is what you want to do, use the GNU Lesser General
|
||||
Public License instead of this License.
|
||||
|
|
@ -0,0 +1,48 @@
|
|||
# Snake
|
||||
|
||||
Snake game for CP/M and VT100/ANSI terminal
|
||||
|
||||
* First version (C) 2018, Karl A. Brokstad (www.z80.no)
|
||||
|
||||
* Turbo Pascal conversion and other mods with permission (C) 2018, linker3000 (linker3000-at-gmail-dot-com)
|
||||
|
||||
Version history:
|
||||
|
||||
* V1.2acn: 25-Jun-2020
|
||||
Changed keys to 2/4/6/8 and H/J/K/L and clear ANSI attributes on exit
|
||||
|
||||
* V1.2T: 21-Jul-2019
|
||||
Corrected Y boundary max in putFood.
|
||||
|
||||
* V1.1T: 14-Oct-2018
|
||||
Command line switch -m (monochrome) suppresses all colour codes
|
||||
Version numbering detached from Karl A. Brokstad's original
|
||||
|
||||
* V23N: 24-Sep-2018 First public release
|
||||
Game map used for collision detection and food position
|
||||
generation - this takes out several long loops.
|
||||
|
||||
Original GitHub repository: https://github.com/linker3000/Z80-Board
|
||||
The first version can be found here: https://z80.no/projects/Pascal.html
|
||||
|
||||
## License
|
||||
|
||||
GPL v2, see the file COPYING
|
||||
|
||||
## Instructions
|
||||
|
||||
## Compiling
|
||||
|
||||
To compile SNAKE, just use Turbo Pascal from the ``TP/`` directory.
|
||||
It's TP 3.0A for CP/M-80, only without the demo source code.
|
||||
|
||||
* Copy the TP files together with the SNAKE.PAS files to one disk
|
||||
* The terminal definition is already set to ANSI and the speed is set to 8 MHz (for a
|
||||
standard RC2014), so running TINST is not needed
|
||||
* Run Turbo Pascal using TURBO
|
||||
* Set the compiler options to "compile -> Com-file" (press O, C, Q)
|
||||
* Compile ``SNAKE.PAS``: press C (Compile), then enter ``snake`` as Work file name.
|
||||
|
||||
This should result in a ``SNAKE.COM`` file.
|
||||
|
||||
|
||||
Binary file not shown.
|
|
@ -0,0 +1,380 @@
|
|||
program snake;
|
||||
|
||||
{$I- No I/O checking}
|
||||
{$R- No range checking}
|
||||
{$V- No string checking}
|
||||
|
||||
(*
|
||||
|
||||
Snake game for CP/M-80 V2.2 and VTxx/ANSI terminal
|
||||
|
||||
Original version (C) 2018, Karl A. Brokstad (www.z80.no)
|
||||
|
||||
Turbo Pascal conversion and other mods with permission
|
||||
(C) 2018, linker3000 (linker3000-at-gmail-dot-com)
|
||||
|
||||
V1.2T: 21-Jul 2019
|
||||
Corrected Y boundary max in putFood.
|
||||
|
||||
V1.1T: 14-Oct-2018
|
||||
Command line switch -m (monochrome) suppresses all colour codes
|
||||
Version numbering detached from Karl A. Brokstad's original
|
||||
|
||||
V23N: 24-Sep-2018 First public release
|
||||
Game map used for collision detection and food position
|
||||
generation - this takes out several long loops.
|
||||
|
||||
|
||||
This program is free software: you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation, either version 2 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
This program 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 General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program. If not, see <https://www.gnu.org/licenses/>.
|
||||
*)
|
||||
|
||||
Type
|
||||
|
||||
Str255 = string[255];
|
||||
|
||||
Const
|
||||
|
||||
progVersion : string[6] = '1.2acn';
|
||||
borderChar : char = '#';
|
||||
snakeHeadChar : char = 'O';
|
||||
snakeBodyChar : char = '#';
|
||||
|
||||
xMax : Byte = 80;
|
||||
yMax : Byte = 25;
|
||||
|
||||
var
|
||||
snakeX : array [1..100] of byte;
|
||||
snakeY : array [1..100] of byte;
|
||||
gameGrid : array [2..80, 2..25] of byte; {Tracks snake body and tail}
|
||||
|
||||
snakeBodyANSI : String[8];
|
||||
foodANSI : String[8];
|
||||
snakeHeadANSI : String[8];
|
||||
borderANSI : String[8];
|
||||
resetANSI : String[4];
|
||||
msgANSI : String[8];
|
||||
|
||||
snakeHead, snakeTail, snakeLength : integer;
|
||||
|
||||
I, level, score : integer;
|
||||
inp, dir : char;
|
||||
X, Y : byte;
|
||||
crash, escaped : boolean;
|
||||
time : integer; {Game delay factor}
|
||||
food : boolean;
|
||||
foodX, foodY, foodV : byte;
|
||||
|
||||
(* * * * * * * * * * writeCtr * * * * * * * * * *)
|
||||
|
||||
procedure writeCtr(Line : Byte; S : Str255);
|
||||
{ Write a centered line of text}
|
||||
Var
|
||||
I : Integer;
|
||||
|
||||
begin
|
||||
I := 40 - round(Length(S)/2);
|
||||
If I < 1 then I := 1;
|
||||
gotoxy(I,Line);
|
||||
write(S);
|
||||
end;
|
||||
|
||||
(* * * * * * * * * * clrKbd * * * * * * * * * *)
|
||||
|
||||
procedure clrKbd; {Clear keyboard buffer}
|
||||
begin
|
||||
repeat until (bdos(6,255)) = 0;
|
||||
end;
|
||||
|
||||
(* * * * * * * * * * readKbd * * * * * * * * * *)
|
||||
|
||||
procedure readKbd; {Check for direction keys}
|
||||
begin
|
||||
if keypressed then case upcase(chr(bdos(6,255))) of
|
||||
|
||||
'4','H','A' : dir := 'L'; (* left *)
|
||||
'8','K','W' : dir := 'U'; (* up *)
|
||||
'2','J','S' : dir := 'D'; (* down *)
|
||||
'6','L','D' : dir := 'R'; (* right *)
|
||||
'+' : time := (time + 5) and 255;
|
||||
'-' : begin
|
||||
time := time - 5;
|
||||
if time < 0 then time := 0;
|
||||
end;
|
||||
'Q' : escaped := true;
|
||||
end;
|
||||
end;
|
||||
|
||||
(* * * * * * * * * conIn * * * * * * * * * * * *)
|
||||
|
||||
function conIn : char;
|
||||
begin
|
||||
conIn := chr(bdos(6, 255)); (* SILENT READ CHARACTER *)
|
||||
end;
|
||||
|
||||
(* * * * * * * * sDelay * * * * * * * * * * * * * *)
|
||||
|
||||
{A non-blocking-ish delay during which we check the keyboard}
|
||||
|
||||
procedure sDelay (D : integer);
|
||||
var I : integer;
|
||||
|
||||
begin
|
||||
|
||||
for I := 1 to D do
|
||||
begin
|
||||
Delay(1);
|
||||
readKbd;
|
||||
end;
|
||||
end;
|
||||
|
||||
(* * * * * * * * * SPLASH SCREEN * * * * * * * * * * * *)
|
||||
|
||||
procedure SplashScreen;
|
||||
begin
|
||||
clrscr;
|
||||
write (msgANSI);
|
||||
writeCtr( 4,'SNAKE '+progVersion+' by Linker3000');
|
||||
writeCtr( 5,'From the original by Karl A. Brokstad (www.Z80.no)');
|
||||
writeCtr( 7,'This program comes with ABSOLUTELY NO WARRANTY.');
|
||||
writeCtr( 9,'This is free software, and you are welcome to redistribute it');
|
||||
writeCtr(10,'under certain conditions - see GPLV2 license:');
|
||||
writeCtr(11,'https://www.gnu.org/licenses/gpl-2.0.html');
|
||||
writeCtr(13,'Requirements:');
|
||||
writeCtr(15,'80x25 ANSI/VT100 compatible console');
|
||||
if (msgANSI = '') then
|
||||
writeCtr(16,'(Monochrome mode was chosen by command line switch)')
|
||||
else
|
||||
writeCtr(16,'(Start program with -m switch to disable ANSI colors)');
|
||||
writeCtr(18,'Movement:');
|
||||
writeCtr(20,'4 = left, 8 = up, 2 = down, 6 = right OR use HJKL keys');
|
||||
writeCtr(21,'Q = Quit to here during game');
|
||||
writeCtr(23,'Press ENTER to START or Q to QUIT');
|
||||
repeat
|
||||
repeat until keypressed;
|
||||
inp := conIn;
|
||||
if ((inp = 'Q') or (inp = 'q')) then
|
||||
begin
|
||||
write (resetANSI);
|
||||
halt;
|
||||
end;
|
||||
until (inp = #13);
|
||||
end;
|
||||
|
||||
(* Put down food *)
|
||||
Procedure putFood;
|
||||
begin
|
||||
(* food value 1-9 *)
|
||||
foodV := 1 + random(9);
|
||||
|
||||
repeat {Find a new food location}
|
||||
readKbd;
|
||||
foodX := 3 + random(xMax-3); {Stay within walls}
|
||||
foodY := 3 + random(yMax-4);
|
||||
until (gameGrid[foodX,foodY] = 0); {Don't put food down over snake}
|
||||
|
||||
food := true;
|
||||
gotoXY(foodX,foodY); {Draw food}
|
||||
write(foodANSI, foodV ,resetANSI);
|
||||
gotoXY(1,1);
|
||||
readKbd;
|
||||
end; {food}
|
||||
|
||||
(* * * * * * * * * DRAW SCREEN * * * * * * * * * * * *)
|
||||
|
||||
procedure DrawScreen;
|
||||
var I : integer;
|
||||
begin
|
||||
clrscr;
|
||||
write(borderANSI);
|
||||
|
||||
for I:=1 to xMax do
|
||||
begin
|
||||
gotoXY(I,1);
|
||||
write(borderChar);
|
||||
gotoXY(I,yMax);
|
||||
write(borderChar);
|
||||
end;
|
||||
|
||||
for I:=1 to yMax do
|
||||
begin
|
||||
gotoXY(1,I);
|
||||
write(borderChar);
|
||||
gotoXY(xMax,I);
|
||||
write(borderChar);
|
||||
end;
|
||||
|
||||
write(resetANSI);
|
||||
end;
|
||||
|
||||
(* * * * * * * * * * * * * * * * * * * * * * *)
|
||||
(* * * * * * * * * * MAIN * * * * * * * * * * *)
|
||||
|
||||
begin
|
||||
|
||||
snakeBodyANSI := #27'[40m';
|
||||
foodANSI := #27'[33;40m'; {Yellow on black background}
|
||||
snakeHeadANSI := #27'[40m';
|
||||
borderANSI := #27'[31;44m';
|
||||
resetANSI := #27'[0m'; {Reset ANSI attributes}
|
||||
msgANSI := #27'[33;40m';
|
||||
|
||||
if (ParamCount > 0) and ((ParamStr(1) = '-m') or (ParamStr(1) = '-M')) then
|
||||
begin
|
||||
snakeBodyANSI := '';
|
||||
foodANSI := '';
|
||||
snakeHeadANSI := '';
|
||||
borderANSI := '';
|
||||
resetANSI := '';
|
||||
msgANSI := '';
|
||||
end;
|
||||
|
||||
repeat
|
||||
randomize;
|
||||
SplashScreen; (* show splash screen *)
|
||||
|
||||
(* * * * * * * * * INIT GAME * * * * * * * * *)
|
||||
|
||||
escaped := false;
|
||||
crash := false;
|
||||
score := 1;
|
||||
level := 1;
|
||||
time := 100; (* delay time *)
|
||||
|
||||
(* * * * * * * * * GAME LOOP * * * * * * * * *)
|
||||
while (not escaped) and (not crash) do
|
||||
begin
|
||||
{Clear the object location grid}
|
||||
for Y := 2 to yMax do for X := 2 to xMax do gameGrid[X,Y] := 0;
|
||||
|
||||
DrawScreen;
|
||||
|
||||
snakeHead := 1; (* first position *)
|
||||
snakeLength := 1; (* length and last position *)
|
||||
snakeTail := 2; (* position to erase snakeTail := snakeHead + snakeLength *)
|
||||
|
||||
X := 39; (* position in middle of screen *)
|
||||
Y := 12;
|
||||
|
||||
snakeX[snakeLength] := X;
|
||||
snakeY[snakeLength] := Y;
|
||||
|
||||
score := score + snakeLength; (* write level and score *)
|
||||
gotoXY(30,1);
|
||||
write(' LEVEL ',level,' SCORE : ',score,' ');
|
||||
|
||||
food := false;
|
||||
|
||||
for I := 5 downto 0 do
|
||||
begin
|
||||
gotoXY(X,Y);
|
||||
write(I);
|
||||
delay(500);
|
||||
end;
|
||||
|
||||
dir := 'R';
|
||||
|
||||
(* * * * * * * * * START GAME LEVEL * * * * * * * * *)
|
||||
|
||||
repeat {Game level}
|
||||
|
||||
readKbd; {Check keyboard for input}
|
||||
|
||||
case dir of (* MOVE readKbd *)
|
||||
'L' : X:=X-1; (* left *)
|
||||
'R' : X:=X+1; (* right *)
|
||||
'D' : Y:=Y+1; (* down *)
|
||||
'U' : Y:=Y-1; (* up *)
|
||||
end;
|
||||
|
||||
(* Save snake position *)
|
||||
(* PUSH snake positions down the line *)
|
||||
(* Always use full array size to keep processing speed consistent *)
|
||||
|
||||
for I := 100 downto 2 do
|
||||
begin
|
||||
readKbd; {Check keyboard for input}
|
||||
snakeX[I] := snakeX[I-1];
|
||||
snakeY[I] := snakeY[I-1];
|
||||
end;
|
||||
|
||||
snakeX[snakeHead] := X;
|
||||
snakeY[snakeHead] := Y;
|
||||
|
||||
gotoXY(snakeX[snakeHead],snakeY[snakeHead]); (* Draw new head *)
|
||||
write (snakeHeadANSI,snakeHeadChar);
|
||||
|
||||
if snakeLength > 1 then
|
||||
begin
|
||||
readKbd;
|
||||
gotoXY(snakeX[snakeHead+1],snakeY[snakeHead+1]); (* Draw body *)
|
||||
gameGrid[snakeX[snakeHead+1],snakeY[snakeHead+1]] := 1; {Where the body is}
|
||||
write (snakeBodyANSI,snakeBodyChar);
|
||||
end;
|
||||
|
||||
gotoXY(snakeX[snakeTail],snakeY[snakeTail]); (* erase tail *)
|
||||
gameGrid[snakeX[snakeTail],snakeY[snakeTail]] := 0; {Remove tail from map}
|
||||
|
||||
write (resetANSI,' ');
|
||||
gotoXY(1,1);
|
||||
|
||||
if (food = false) then putFood; {Put down some food}
|
||||
|
||||
{Test snake position}
|
||||
if (X < 2) or (X >= xMax) {Snake crashes into wall or own body }
|
||||
or (Y < 2) or (Y >= yMax)
|
||||
or (gameGrid[X,Y] = 1) then crash := true;
|
||||
|
||||
if (X = foodX) and (Y = foodY) then {Snake eats food }
|
||||
begin
|
||||
readKbd;
|
||||
snakeLength := snakeLength + foodV;
|
||||
food := false;
|
||||
snakeTail := snakeLength +1;
|
||||
score := score + (foodV * level);
|
||||
gotoXY(30,1);
|
||||
write(' LEVEL ',level,' SCORE : ',score,' ');
|
||||
gotoXY(1,1);
|
||||
readKbd;
|
||||
end;
|
||||
|
||||
sDelay(time); (* delay *)
|
||||
|
||||
until crash or escaped or (snakeLength > 99); {game level}
|
||||
|
||||
(* * * * * * * * * * END GAME * * * * * * * *)
|
||||
|
||||
write(msgANSI);
|
||||
if (crash or escaped) then (* game over *)
|
||||
if crash then writeCtr(12,' YOU CRASHED ')
|
||||
else writeCtr(12,' YOU QUIT! ');
|
||||
|
||||
if snakeLength > 99 then (* advance to next level *)
|
||||
begin
|
||||
level := level + 1;
|
||||
time := time - 10;
|
||||
if (time < 1) then time := 1;
|
||||
writeCtr(12,' YOU MADE IT TO THE NEXT LEVEL ');
|
||||
end;
|
||||
write (resetANSI);
|
||||
|
||||
clrKbd;
|
||||
writeCtr(14,' PRESS ENTER ');
|
||||
repeat until conIn = #13;
|
||||
end {while}
|
||||
until false;
|
||||
|
||||
(* * * * * * * * * * FINISH * * * * * * * *)
|
||||
|
||||
end.
|
||||
|
||||
|
|
@ -0,0 +1,181 @@
|
|||
|
||||
Welcome to TURBO PASCAL Version 3.0!
|
||||
------------------------------------
|
||||
|
||||
In spite of all efforts, some errors have found their way into
|
||||
the new TURBO 3.0 manual. This file contains all the necessary
|
||||
corrections and additions, and we apologize for any inconvenience
|
||||
this may cause you.
|
||||
|
||||
Please make a working copy of your TURBO disk and store the ori-
|
||||
ginal in a safe place. For help making a backup copy, please
|
||||
refer to appendix M of the TURBO PASCAL Reference Manual.
|
||||
|
||||
NOTEº Youò TURBÏ PASCAÌ disë haó beeî pre-installeä foò youò <20>
|
||||
Microbeå disë system¬ paù nï attentioî tï thå manuaì witè regardó <20>
|
||||
to installing TURBO PASCAL.
|
||||
|
||||
|
||||
*******************************************
|
||||
* *
|
||||
* Need help with TURBO? Please see *
|
||||
* Appendix N in your Reference Manual *
|
||||
* for answers to common questions. *
|
||||
* *
|
||||
*******************************************
|
||||
|
||||
|
||||
-------------------
|
||||
|
||||
|
||||
Contents of the READ.ME File
|
||||
----------------------------
|
||||
1. CORRECTIONS to the 3.0 Reference Manual [ All versions ]
|
||||
2. OMMISSIONS from the 3.0 Reference Manual [ All versions ]
|
||||
3. New FEATURES [ CP/M-80 ]
|
||||
4. ADDITIONAL FILE LIST [ CP/M-80 ]
|
||||
|
||||
|
||||
-------------------
|
||||
|
||||
|
||||
CORRECTIONS
|
||||
-----------
|
||||
|
||||
|
||||
Page 253 - MOV AL,[BP-1]
|
||||
------------------------
|
||||
The correct statement is: MOV AL,[BP+4]
|
||||
|
||||
|
||||
Page 293 - TURBO-BCD will compile and run any program
|
||||
-----------------------------------------------------
|
||||
Well - almost. The Real functions Sin, Cos, ArcTan, Ln, Exp,
|
||||
and Sqrt and the pre-declared constant Pi are not available
|
||||
in TURBOBCD.
Š
|
||||
|
||||
-------------------
|
||||
|
||||
|
||||
OMISSIONS
|
||||
---------
|
||||
|
||||
|
||||
User Written Error Handlers
|
||||
---------------------------
|
||||
In Turbo Pascal 3.0 you may write your own error handler,
|
||||
which is called in case of an I/O or Run-time error. The
|
||||
procedure must have the following header:
|
||||
|
||||
procedure Error(ErrNo, ErrAddr: Integer);
|
||||
|
||||
The name of the procedure and its parameters are unim-
|
||||
portant, as long as it is a procedure with two value
|
||||
parameters of type Integer.
|
||||
|
||||
The value passed in ErrNo is the error type and number. The
|
||||
most significant byte, i.e. "Hi(ErrNo)", contains the error
|
||||
type, and the least significant byte, i.e. "Lo(ErrNo)",
|
||||
contains the error number (see Appendix F or G in the Turbo
|
||||
Pascal Manual).
|
||||
|
||||
The following error types are defined:
|
||||
|
||||
0 User Break (Ctrl-C).
|
||||
1 I/O error.
|
||||
2 Run-time error.
|
||||
|
||||
In case of a user interrupt (Ctrl-C), the low byte of
|
||||
"ErrNo" is always 1. "ErrAddr" contains the address (offset
|
||||
in Code Segment for 16 bit versions) of the error.
|
||||
|
||||
To activate the error handler, assign its offset address
|
||||
to the standard variable "ErrorPtr", i.e.
|
||||
|
||||
ErrorPtr:=Ofs(Error); { 16 bit } or
|
||||
ErrorPtr:=Addr(Error); { 8 bit }
|
||||
|
||||
There are no limits to what an error handler may do. Typi-
|
||||
cally it will close all open files, output an error mes-
|
||||
sage, and call the Halt standard procedure to terminate the
|
||||
program. If an error handler returns, i.e. if it does
|
||||
not call Halt, or if an error occurs within an error
|
||||
handler, Turbo Pascal will itself output the error message
|
||||
and terminate the program.
|
||||
|
||||
|
||||
|
||||
|
||||
-------------------
Š
|
||||
|
||||
NEW FEATURES OF CP/M-80 IMPLEMENTATION OF
|
||||
TURBO 3.0
|
||||
- AN OVERVIEW -
|
||||
-----------------------------------------
|
||||
|
||||
Inline
|
||||
------
|
||||
A constant identifier used in an INLINE statement does not
|
||||
always generate two bytes of code.
|
||||
|
||||
Files
|
||||
-----
|
||||
New FIB formats.
|
||||
Optional 4th parameter on Blockread/Write returns number of
|
||||
blocks actually read.
|
||||
SeekEoln function.
|
||||
SeekEof function.
|
||||
|
||||
|
||||
Misc.
|
||||
-----
|
||||
Exit procedure - To exit the current block
|
||||
OvrDrive procedure - To specify the drive on which to find overlays
|
||||
ParamCount function - Gives number of characters in the command buffer
|
||||
ParamStr function - Gives the string of characters in the command line
|
||||
|
||||
Overlays
|
||||
--------
|
||||
|
||||
Overlay files are opened and closed every time they are
|
||||
accessed. Therefore, there is never a need to specifically
|
||||
close an overlay file.
|
||||
|
||||
The Y compiler directive is no longer supported. Instead,
|
||||
the OvrPath (MS-DOS) or OvrDrive (CP/M) standard proce-
|
||||
dures may be used to specify the drive and subdirectory
|
||||
in which overlay files reside.
|
||||
|
||||
Please note that run-time error F0 indicates that your over-
|
||||
lay file is missing or is called recursively. (This error
|
||||
number is omitted from the Reference Manual but is included
|
||||
elsewhere in this file.)
|
||||
|
||||
|
||||
-------------------
|
||||
|
||||
TURBO PASCAL Version 3.0
|
||||
CP/M-80
|
||||
Additional File List
|
||||
|
||||
In addition to the list of files mentioned in Chapter 1 of
|
||||
your TURBO Reference Manual, the following files are included
|
||||
on your TURBO disk:
Š
|
||||
Sample programs
|
||||
---------------
|
||||
LISTER PAS - simple program to list your Pascal source
|
||||
CMDLIN PAS - get parameters from the command line
|
||||
|
||||
MC PAS - sample spreadsheet program - MAIN MODULE
|
||||
MC-MOD00 INC - sample spreadsheet program - INCLUDE MODULE 00
|
||||
MC-MOD01 INC - sample spreadsheet program - INCLUDE MODULE 01
|
||||
MC-MOD02 INC - sample spreadsheet program - INCLUDE MODULE 02
|
||||
MC-MOD03 INC - sample spreadsheet program - INCLUDE MODULE 03
|
||||
MC-MOD04 INC - sample spreadsheet program - INCLUDE MODULE 04
|
||||
MC-MOD05 INC - sample spreadsheet program - INCLUDE MODULE 05
|
||||
MC HLP - spreadsheet help file
|
||||
MCDEMO MCS - spreadsheet data file (not for use with TURBO-87)
|
||||
|
||||
---------------------------------------------------------------------
|
||||
|
||||
|
||||
Binary file not shown.
Binary file not shown.
|
|
@ -0,0 +1,123 @@
|
|||
1 TURBO Pascal installation menu.
|
||||
2 Choose installation item from the following:
|
||||
3
|
||||
4 [S]creen installation | [C]ommand installation | [Q]uit
|
||||
5
|
||||
6 Enter S, C, or Q:
|
||||
10 Duplicate definition. Error occurred between question
|
||||
11 Commands starting with the same letter must have the same length.
|
||||
Error occurred between question
|
||||
12 The total maximum length of commands are execeeded
|
||||
13 ->
|
||||
|
||||
|
||||
14 CURSOR MOVEMENTS:
|
||||
|
||||
20 Character left
|
||||
21 Alternative
|
||||
22 Character right
|
||||
23 Word left
|
||||
24 Word right
|
||||
25 Line up
|
||||
26 Line down
|
||||
27 Scroll down
|
||||
28 Scroll up
|
||||
29 Page up
|
||||
30 Page down
|
||||
31 To left on line
|
||||
32 To right on line
|
||||
33 To top of page
|
||||
34 To bottom of page
|
||||
35 To top of file
|
||||
36 To end of file
|
||||
37 To begining of block
|
||||
38 To end of block
|
||||
39 To last cursor position
|
||||
|
||||
|
||||
15 INSERT & DELETE:
|
||||
|
||||
40 Insert mode on/off
|
||||
41 Insert line
|
||||
42 Delete line
|
||||
43 Delete to end of line
|
||||
44 Delete right word
|
||||
45 Delete character under cursor
|
||||
46 Delete left character
|
||||
47 Alternative
|
||||
|
||||
|
||||
16 BLOCK COMMANDS:
|
||||
|
||||
48 Mark block begin
|
||||
49 Mark block end
|
||||
50 Mark single word
|
||||
51 Hide/display block
|
||||
52 Copy block
|
||||
53 Move block
|
||||
54 Delete block
|
||||
55 Read block from disk
|
||||
56 Write block to disk
|
||||
|
||||
|
||||
17 MISC. EDITING COMMANDS:
|
||||
|
||||
57 End edit
|
||||
58 Tab
|
||||
59 Auto tab on/off
|
||||
60 Restore line
|
||||
61 Find
|
||||
62 Find & replace
|
||||
63 Repeat last find
|
||||
64 Control character prefix
|
||||
|
||||
101 Nothing
|
||||
^Q: Quit, ^R: Last page, ^C: Next page, <RETURN>: Select terminal:
|
||||
Wait Sorting Definitions
|
||||
Change to:
|
||||
(Y/N)?
|
||||
y
|
||||
n
|
||||
Text file name:
|
||||
Command:
|
||||
Numeric entry expected
|
||||
Legal range is
|
||||
, please re-enter:
|
||||
Choose one of the following terminals:
|
||||
None of the above ( Max. 20 Characters )
|
||||
Delete a definition ( Max. 20 Characters )
|
||||
Which terminal? (Enter no. or ^Q to exit):
|
||||
Delete terminal? (Enter no. or ^Q to exit):
|
||||
Do you want to modify this definition before installation?
|
||||
Terminal type:
|
||||
Send an initialization string to the terminal?
|
||||
Initializaion defined as a command string? (No = a file)
|
||||
Send a reset string to the terminal
|
||||
Reset defined as a command? (No = a file)
|
||||
CURSOR LEAD-IN command:
|
||||
CURSOR POSITIONING COMMAND to send between line and column:
|
||||
CURSOR POSITIONING COMMAND to send after both line and column:
|
||||
Column first
|
||||
OFFSET to add to LINE:
|
||||
OFFSET to add to COLUMN:
|
||||
Binary address
|
||||
Number of ASCII digits (2 or 3):
|
||||
CLEAR SCREEN command:
|
||||
Does CLEAR SCREEN also HOME cursor
|
||||
HOME command:
|
||||
DELETE LINE command:
|
||||
INSERT LINE command:
|
||||
ERASE TO END OF LINE command:
|
||||
START HIGHLIGHTING command:
|
||||
END HIGHLIGHTING command:
|
||||
Number of rows (lines) on your screen:
|
||||
Number of columns on your screen:
|
||||
Delay after CURSOR ADDRESS (0-255 ms):
|
||||
Delay after CLEAR, DELETE and INSERT (0-255 ms):
|
||||
Delay after ERASE TO END OF LINE and HIGHLIGHT (0-255 ms):
|
||||
Is this definition correct?
|
||||
Hardware dependent information
|
||||
Operating frequency of your microprocessor in MHz (for delays):
|
||||
pendent information
|
||||
Operating frequency of your microprocessor in MHz (for delays):
|
||||
|
||||
Binary file not shown.
|
|
@ -0,0 +1,101 @@
|
|||
are not allowed
|
||||
can not be
|
||||
constant
|
||||
does not
|
||||
expression
|
||||
identifier
|
||||
file
|
||||
here
|
||||
Integer
|
||||
File
|
||||
Illegal
|
||||
or
|
||||
Undefined
|
||||
match
|
||||
real
|
||||
String
|
||||
Textfile
|
||||
out of range
|
||||
variable
|
||||
overflow
|
||||
expected
|
||||
type
|
||||
Invalid
|
||||
pointer
|
||||
01';'
|
||||
02':'
|
||||
03','
|
||||
04'('
|
||||
05')'
|
||||
06'='
|
||||
07':='
|
||||
08'['
|
||||
09']'
|
||||
10'.'
|
||||
11'..'
|
||||
12BEGIN
|
||||
13DO
|
||||
14END
|
||||
15OF
|
||||
17THEN
|
||||
18TO DOWNTO
|
||||
20Boolean
|
||||
21
|
||||
22
|
||||
23
|
||||
24
|
||||
25
|
||||
26
|
||||
27
|
||||
28Pointer
|
||||
29Record
|
||||
30Simple
|
||||
31Simple
|
||||
32
|
||||
33
|
||||
34
|
||||
35
|
||||
36Type
|
||||
37Untyped
|
||||
40 label
|
||||
41Unknown syntax error
|
||||
42 in preceding definitions
|
||||
43Duplicate label
|
||||
44Type mismatch
|
||||
45
|
||||
46 and CASE selector
|
||||
47Operand(s) operator
|
||||
48 result
|
||||
49 length
|
||||
50 length
|
||||
51 subrange base
|
||||
52Lower bound > upper bound
|
||||
53Reserved word
|
||||
54 assignment
|
||||
55 exceeds line
|
||||
56Error in integer
|
||||
57Error in
|
||||
58 character in
|
||||
60s
|
||||
61 s and s
|
||||
62Structureds
|
||||
63s
|
||||
64s and untypeds
|
||||
65Untypeds
|
||||
66I/O
|
||||
67 s must be parameters
|
||||
68 componentss
|
||||
69dering of fields
|
||||
70Set base
|
||||
71 GOTO
|
||||
72Label not within current block
|
||||
73 FORWARD procedure(s)
|
||||
74INLINE error
|
||||
75 use of ABSOLUTE
|
||||
90 not found
|
||||
91Unexpected end of source
|
||||
97Too many nested WITH's
|
||||
98Memory
|
||||
99Compilerd WITH's
|
||||
98Memory
|
||||
99Compiler
|
||||
Binary file not shown.
Loading…
Reference in New Issue