| 1 | '\r |
| 2 | ' Q B a s i c N i b b l e s\r |
| 3 | '\r |
| 4 | ' Copyright (C) Microsoft Corporation 1990\r |
| 5 | '\r |
| 6 | ' Nibbles is a game for one or two players. Navigate your snakes\r |
| 7 | ' around the game board trying to eat up numbers while avoiding\r |
| 8 | ' running into walls or other snakes. The more numbers you eat up,\r |
| 9 | ' the more points you gain and the longer your snake becomes.\r |
| 10 | '\r |
| 11 | ' To run this game, press Shift+F5.\r |
| 12 | '\r |
| 13 | ' To exit QBasic, press Alt, F, X.\r |
| 14 | '\r |
| 15 | ' To get help on a BASIC keyword, move the cursor to the keyword and press\r |
| 16 | ' F1 or click the right mouse button.\r |
| 17 | '\r |
| 18 | \r |
| 19 | 'Set default data type to integer for faster game play\r |
| 20 | DEFINT A-Z\r |
| 21 | \r |
| 22 | 'User-defined TYPEs\r |
| 23 | TYPE snakeBody\r |
| 24 | row AS INTEGER\r |
| 25 | col AS INTEGER\r |
| 26 | END TYPE\r |
| 27 | \r |
| 28 | 'This type defines the player's snake\r |
| 29 | TYPE snaketype\r |
| 30 | head AS INTEGER\r |
| 31 | length AS INTEGER\r |
| 32 | row AS INTEGER\r |
| 33 | col AS INTEGER\r |
| 34 | direction AS INTEGER\r |
| 35 | lives AS INTEGER\r |
| 36 | score AS INTEGER\r |
| 37 | scolor AS INTEGER\r |
| 38 | alive AS INTEGER\r |
| 39 | END TYPE\r |
| 40 | \r |
| 41 | 'This type is used to represent the playing screen in memory\r |
| 42 | 'It is used to simulate graphics in text mode, and has some interesting,\r |
| 43 | 'and slightly advanced methods to increasing the speed of operation.\r |
| 44 |