The Gasp (Basic version)
10 T = 5: REM TAILLE 4 x 4
20 HOME : REM EFFACE ECRAN
30 REM *---<AFFICHAGE>---*
40 PRINT "...18.104.22.168"
50 FOR Y = 2 TO T
60 PRINT : PRINT : PRINT : PRINT Y - 1;
70 FOR X = 2 TO T
80 HTAB X * 2: VTAB Y * 2
90 IF A(X,Y) = 1 THEN PRINT "X";
100 IF A(X,Y) = 0 THEN PRINT "O";
110 NEXT X: NEXT Y
120 REM *---<CHOIX.JOUEUR>---*
130 PRINT : PRINT : PRINT : PRINT "NC="NC: PRINT: PRINT
140 INPUT "X=";X:INPUT "Y=";Y
150 NC = NC + 1
160 X = X + 1: Y = Y + 1
170 FOR YT = Y - 1 TO Y + 1
180 FOR XT = X - 1 TO X + 1
190 IF XT = X AND YT = Y THEN 220
200 IF A(XT,YT) = 1 THEN A(XT,YT) = 0: GOTO 220
210 A(XT,YT) = 1
220 NEXT XT,YT: GOTO 20
The Gasp (QBasic version)
When I rediscovered this piece of code at the end of 2017, it was like a crush. To test it, I turned to QBasic 64 in its version 1.1. In the age of our ultra-powerful machines, it was, in my eyes, the best solution. I know I could have used an emulator, but what fun would that have been ? As you can see, this is a 100% text-based game, just like the 1985 game. If you feel like it, I put some source codes on mon GitHub:
- The source code in QBasic and its executable (sources folder then Qbasic)
- The listing of the time, in Basic for Apple I and II (source folder then Basic).
There is a site that allows you to run code written in Apple Basic: https://calormen.com/jsbasic/.
The Gasp (VB.Net version)
The Qbasic version works without much question, but it is not very pretty. One could imagine colours or a message indicating that the player has succeeded. That's how the VB.Net version was born! I just replaced the counters by cards. This time, the source code is not at your disposal, but you can download the game (you have to unzip the file, then run the setup.msi file) to try the game at home, quietly. Little extra: You can choose a 4 x 4 grid or a 5 x 5 grid depending on the level of difficulty you want.
I know that installing something on your PC these days has become complicated. You don't know where it comes from, you're afraid of cookies, tracers, viruses, malware and all the bad epidemics that are everywhere on the net. That's why I wanted to create this version of Gasp that can be played online for free. If I've done my homework, the site is even mobile friendly, which means that it will adapt to the medium you are using: tablet, computer or even phone. You can play by clicking here and as for the Basic version, the code is available on my GitHub.