diff --git a/README.md b/README.md index 10b76e8..af744e5 100644 --- a/README.md +++ b/README.md @@ -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 diff --git a/Snake/COPYING b/Snake/COPYING new file mode 100644 index 0000000..d159169 --- /dev/null +++ b/Snake/COPYING @@ -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. + + + Copyright (C) + + 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. + + , 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. diff --git a/Snake/README.md b/Snake/README.md new file mode 100644 index 0000000..0f40e73 --- /dev/null +++ b/Snake/README.md @@ -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. + + diff --git a/Snake/SNAKE.COM b/Snake/SNAKE.COM new file mode 100644 index 0000000..dd45beb Binary files /dev/null and b/Snake/SNAKE.COM differ diff --git a/Snake/SNAKE.PAS b/Snake/SNAKE.PAS new file mode 100644 index 0000000..543309c --- /dev/null +++ b/Snake/SNAKE.PAS @@ -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 . +*) + +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. + diff --git a/Snake/TP/READ.ME b/Snake/TP/READ.ME new file mode 100644 index 0000000..c4bc6e4 --- /dev/null +++ b/Snake/TP/READ.ME @@ -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ò +    Microbeå disë system¬ paù nï attentioî tï thå manuaì witè regardó +    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) + + --------------------------------------------------------------------- + + \ No newline at end of file diff --git a/Snake/TP/TINST.COM b/Snake/TP/TINST.COM new file mode 100644 index 0000000..f730496 Binary files /dev/null and b/Snake/TP/TINST.COM differ diff --git a/Snake/TP/TINST.DTA b/Snake/TP/TINST.DTA new file mode 100644 index 0000000..b77c1c1 Binary files /dev/null and b/Snake/TP/TINST.DTA differ diff --git a/Snake/TP/TINST.MSG b/Snake/TP/TINST.MSG new file mode 100644 index 0000000..cc25774 --- /dev/null +++ b/Snake/TP/TINST.MSG @@ -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, : 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): + \ No newline at end of file diff --git a/Snake/TP/TURBO.COM b/Snake/TP/TURBO.COM new file mode 100644 index 0000000..91d0193 Binary files /dev/null and b/Snake/TP/TURBO.COM differ diff --git a/Snake/TP/TURBO.MSG b/Snake/TP/TURBO.MSG new file mode 100644 index 0000000..701b32b --- /dev/null +++ b/Snake/TP/TURBO.MSG @@ -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 ands +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 \ No newline at end of file diff --git a/Snake/TP/TURBO.OVR b/Snake/TP/TURBO.OVR new file mode 100644 index 0000000..bd9292e Binary files /dev/null and b/Snake/TP/TURBO.OVR differ