Exclusive mode seems to work without deadlocks
[mirrors/Programs.git] / turbobasic / 1998 / 3RD-PA.RTY / QBASIC / NIBBLES.BAS
CommitLineData
0f95cc4b
H
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
20DEFINT A-Z\r
21\r
22'User-defined TYPEs\r
23TYPE snakeBody\r
24 row AS INTEGER\r
25 col AS INTEGER\r
26END TYPE\r
27\r
28'This type defines the player's snake\r
29TYPE 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
39END 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