GORILLAS in BASIC

[toncho11]

Version 1 that should be compatible with our BASIC

10 REM ** GORILLAS GAME **
20 REM ** SET GRAPHICS MODE AND CLEAR SCREEN **
30 MODE 1
40 CLS

50 REM ** CONSTANTS **
60 LET GRAVITY = 0.1
70 LET SCREEN_WIDTH = 320
80 LET SCREEN_HEIGHT = 200

90 REM ** PLAYER POSITIONS **
100 LET GX1 = 50 : LET GY1 = 150   ' Gorilla 1 (Player 1)
110 LET GX2 = 270 : LET GY2 = 130  ' Gorilla 2 (Player 2 or AI)

120 REM ** DRAW SKYLINE **
130 FOR X = 0 TO 300 STEP 50
140   LET HEIGHT = INT(RND * 100) + 50
150   PLOT X, SCREEN_HEIGHT
160   DRAW 0, -HEIGHT
170 NEXT X

180 REM ** DRAW GORILLAS **
190 PLOT GX1, GY1 : DRAW 5, 0 : DRAW 0, -5 : DRAW -5, 0 : DRAW 0, 5
200 PLOT GX2, GY2 : DRAW 5, 0 : DRAW 0, -5 : DRAW -5, 0 : DRAW 0, 5

210 REM ** GAME MODE SELECTION **
220 PRINT "GORILLAS GAME: SELECT MODE"
230 PRINT "1: SINGLE PLAYER (VS AI)"
240 PRINT "2: TWO PLAYERS"
250 INPUT "ENTER CHOICE (1 OR 2): ", MODE

260 REM ** GAME LOOP **
270 FOR TURN = 1 TO 10
280   REM ** DETERMINE PLAYER TURN **
290   IF TURN MOD 2 = 1 THEN
300     PRINT "PLAYER 1'S TURN!"
310     INPUT "ANGLE (0-90)? ", A
320     INPUT "VELOCITY? ", V
330     LET GX = GX1 : LET GY = GY1
340   ELSE
350     IF MODE = 2 THEN
360       PRINT "PLAYER 2'S TURN!"
370       INPUT "ANGLE (0-90)? ", A
380       INPUT "VELOCITY? ", V
390       LET GX = GX2 : LET GY = GY2
400     ELSE
410       REM ** AI CALCULATES ANGLE AND VELOCITY **
420       PRINT "AI'S TURN..."
430       LET A = INT(RND * 45) + 30 ' Random angle between 30-75
440       LET V = INT(RND * 10) + 20 ' Random velocity between 20-30
450       PRINT "AI CHOOSES ANGLE="; A; " VELOCITY="; V
460       LET GX = GX2 : LET GY = GY2
470     END IF
480   END IF

490   REM ** CONVERT ANGLE TO RADIANS **
500   LET A = A * PI / 180

510   REM ** THROW BANANA **
520   FOR T = 0 TO 50 STEP 0.1
530     LET BX = GX + V * COS(A) * T
540     LET BY = GY - (V * SIN(A) * T - 0.5 * GRAVITY * T^2)
550     IF BX < 0 OR BX > SCREEN_WIDTH OR BY > SCREEN_HEIGHT THEN EXIT FOR
560     PLOT INT(BX), INT(BY)
570     PAUSE 10
580     PLOT INT(BX), INT(BY)
590     REM ** CHECK COLLISION **
600     IF ABS(BX - GX1) < 5 AND ABS(BY - GY1) < 5 THEN GOTO 800
610     IF ABS(BX - GX2) < 5 AND ABS(BY - GY2) < 5 THEN GOTO 900
620   NEXT T
630   PRINT "MISS!"
640   NEXT TURN

650 PRINT "GAME OVER!"
660 END

670 REM ** EXPLOSION EFFECT **
680 SUB EXPLOSION(X, Y)
690 FOR R = 1 TO 10
700   CIRCLE X, Y, R
710   PAUSE 20
720 NEXT R
730 FOR R = 10 TO 1 STEP -1
740   CIRCLE X, Y, R
750   PAUSE 20
760 NEXT R
770 END SUB

780 REM ** PLAYER 2 OR AI WINS **
800 PRINT "PLAYER 2 (OR AI) WINS!"
810 CALL EXPLOSION(GX1, GY1)
820 STOP

830 REM ** PLAYER 1 WINS **
900 PRINT "PLAYER 1 WINS!"
910 CALL EXPLOSION(GX2, GY2)
920 STOP

[toncho11]

version 2 with better visual effects:

10 REM ** GORILLAS GAME WITH BUILDINGS AND SUN **
20 REM ** SET GRAPHICS MODE AND CLEAR SCREEN **
30 MODE 1
40 CLS

50 REM ** CONSTANTS **
60 LET GRAVITY = 0.1
70 LET SCREEN_WIDTH = 320
80 LET SCREEN_HEIGHT = 200
90 LET BUILDING_WIDTH = 40
100 LET WINDOW_SIZE = 5
110 LET SUN_X = 280 : LET SUN_Y = 40 : LET SUN_RADIUS = 15

120 REM ** DRAW BACKGROUND: SUN AND SKYLINE **
130 GOSUB 1000  ' Draw the sun
140 GOSUB 1100  ' Draw the buildings

150 REM ** PLAYER POSITIONS (TOP OF RANDOM BUILDINGS) **
160 LET GX1 = BUILDING_X1 + BUILDING_WIDTH / 2 : LET GY1 = BUILDING_Y1 - 5
170 LET GX2 = BUILDING_X2 + BUILDING_WIDTH / 2 : LET GY2 = BUILDING_Y2 - 5

180 REM ** DRAW GORILLAS **
190 PLOT GX1, GY1 : DRAW 5, 0 : DRAW 0, -5 : DRAW -5, 0 : DRAW 0, 5
200 PLOT GX2, GY2 : DRAW 5, 0 : DRAW 0, -5 : DRAW -5, 0 : DRAW 0, 5

210 REM ** GAME MODE SELECTION **
220 PRINT "GORILLAS GAME: SELECT MODE"
230 PRINT "1: SINGLE PLAYER (VS AI)"
240 PRINT "2: TWO PLAYERS"
250 INPUT "ENTER CHOICE (1 OR 2): ", MODE

260 REM ** GAME LOOP **
270 FOR TURN = 1 TO 10
280   REM ** DETERMINE PLAYER TURN **
290   IF TURN MOD 2 = 1 THEN
300     PRINT "PLAYER 1'S TURN!"
310     INPUT "ANGLE (0-90)? ", A
320     INPUT "VELOCITY? ", V
330     LET GX = GX1 : LET GY = GY1
340   ELSE
350     IF MODE = 2 THEN
360       PRINT "PLAYER 2'S TURN!"
370       INPUT "ANGLE (0-90)? ", A
380       INPUT "VELOCITY? ", V
390       LET GX = GX2 : LET GY = GY2
400     ELSE
410       REM ** AI CALCULATES ANGLE AND VELOCITY **
420       PRINT "AI'S TURN..."
430       LET A = INT(RND * 45) + 30 ' Random angle between 30-75
440       LET V = INT(RND * 10) + 20 ' Random velocity between 20-30
450       PRINT "AI CHOOSES ANGLE="; A; " VELOCITY="; V
460       LET GX = GX2 : LET GY = GY2
470     END IF
480   END IF

490   REM ** CONVERT ANGLE TO RADIANS **
500   LET A = A * PI / 180

510   REM ** THROW BANANA **
520   FOR T = 0 TO 50 STEP 0.1
530     LET BX = GX + V * COS(A) * T
540     LET BY = GY - (V * SIN(A) * T - 0.5 * GRAVITY * T^2)
550     IF BX < 0 OR BX > SCREEN_WIDTH OR BY > SCREEN_HEIGHT THEN EXIT FOR
560     PLOT INT(BX), INT(BY)
570     PAUSE 10
580     PLOT INT(BX), INT(BY)
590     REM ** CHECK COLLISION **
600     IF ABS(BX - GX1) < 5 AND ABS(BY - GY1) < 5 THEN GOTO 800
610     IF ABS(BX - GX2) < 5 AND ABS(BY - GY2) < 5 THEN GOTO 900
620   NEXT T
630   PRINT "MISS!"
640   NEXT TURN

650 PRINT "GAME OVER!"
660 END

670 REM ** EXPLOSION EFFECT **
680 SUB EXPLOSION(X, Y)
690 FOR R = 1 TO 10
700   CIRCLE X, Y, R
710   PAUSE 20
720 NEXT R
730 FOR R = 10 TO 1 STEP -1
740   CIRCLE X, Y, R
750   PAUSE 20
760 NEXT R
770 END SUB

780 REM ** PLAYER 2 OR AI WINS **
800 PRINT "PLAYER 2 (OR AI) WINS!"
810 CALL EXPLOSION(GX1, GY1)
820 STOP

830 REM ** PLAYER 1 WINS **
900 PRINT "PLAYER 1 WINS!"
910 CALL EXPLOSION(GX2, GY2)
920 STOP

1000 REM ** DRAW SUN **
1010 FOR R = SUN_RADIUS TO 1 STEP -1
1020   CIRCLE SUN_X, SUN_Y, R
1030 NEXT R
1040 RETURN

1100 REM ** DRAW BUILDINGS WITH WINDOWS **
1110 REM ** Random Building Heights **
1120 LET BUILDING_X1 = 40 : LET BUILDING_HEIGHT1 = INT(RND * 80) + 50
1130 LET BUILDING_X2 = 240 : LET BUILDING_HEIGHT2 = INT(RND * 80) + 50
1140 LET BUILDING_Y1 = SCREEN_HEIGHT - BUILDING_HEIGHT1
1150 LET BUILDING_Y2 = SCREEN_HEIGHT - BUILDING_HEIGHT2

1160 REM ** Draw Building 1 **
1170 FOR Y = SCREEN_HEIGHT TO BUILDING_Y1 STEP -WINDOW_SIZE*2
1180   FOR X = BUILDING_X1 TO BUILDING_X1 + BUILDING_WIDTH - WINDOW_SIZE STEP WINDOW_SIZE*2
1190     PLOT X, Y : DRAW WINDOW_SIZE, 0 : DRAW 0, -WINDOW_SIZE : DRAW -WINDOW_SIZE, 0 : DRAW 0, WINDOW_SIZE
1200   NEXT X
1210 NEXT Y

1220 REM ** Draw Building 2 **
1230 FOR Y = SCREEN_HEIGHT TO BUILDING_Y2 STEP -WINDOW_SIZE*2
1240   FOR X = BUILDING_X2 TO BUILDING_X2 + BUILDING_WIDTH - WINDOW_SIZE STEP WINDOW_SIZE*2
1250     PLOT X, Y : DRAW WINDOW_SIZE, 0 : DRAW 0, -WINDOW_SIZE : DRAW -WINDOW_SIZE, 0 : DRAW 0, WINDOW_SIZE
1260   NEXT X
1270 NEXT Y
1280 RETURN

[toncho11]

Version 3 with 16 CGA colors:

10 REM ** GORILLAS GAME WITH CGA COLORS **
20 MODE 1  ' Set graphics mode
30 CLS

40 REM ** CONSTANTS **
50 LET GRAVITY = 0.1
60 LET SCREEN_WIDTH = 320
70 LET SCREEN_HEIGHT = 200
80 LET BUILDING_WIDTH = 40
90 LET WINDOW_SIZE = 5
100 LET SUN_X = 280 : LET SUN_Y = 40 : LET SUN_RADIUS = 15

110 REM ** CGA COLOR PALETTE **
120 REM Colors: 0=Black, 1=Blue, 2=Green, 3=Cyan, 4=Red, 5=Magenta, 6=Brown, 7=White, etc.
130 COLOR 3, 0  ' Cyan background with black text
140 CLS

150 REM ** DRAW BACKGROUND: SUN AND SKYLINE **
160 GOSUB 1000  ' Draw the sun
170 GOSUB 1100  ' Draw the buildings

180 REM ** PLAYER POSITIONS (TOP OF RANDOM BUILDINGS) **
190 LET GX1 = BUILDING_X1 + BUILDING_WIDTH / 2 : LET GY1 = BUILDING_Y1 - 5
200 LET GX2 = BUILDING_X2 + BUILDING_WIDTH / 2 : LET GY2 = BUILDING_Y2 - 5

210 REM ** DRAW GORILLAS **
220 COLOR 4, 0  ' Red for gorillas
230 PLOT GX1, GY1 : DRAW 5, 0 : DRAW 0, -5 : DRAW -5, 0 : DRAW 0, 5
240 PLOT GX2, GY2 : DRAW 5, 0 : DRAW 0, -5 : DRAW -5, 0 : DRAW 0, 5

250 REM ** GAME MODE SELECTION **
260 PRINT "GORILLAS GAME: SELECT MODE"
270 PRINT "1: SINGLE PLAYER (VS AI)"
280 PRINT "2: TWO PLAYERS"
290 INPUT "ENTER CHOICE (1 OR 2): ", MODE

300 REM ** GAME LOOP **
310 FOR TURN = 1 TO 10
320   REM ** DETERMINE PLAYER TURN **
330   IF TURN MOD 2 = 1 THEN
340     PRINT "PLAYER 1'S TURN!"
350     INPUT "ANGLE (0-90)? ", A
360     INPUT "VELOCITY? ", V
370     LET GX = GX1 : LET GY = GY1
380   ELSE
390     IF MODE = 2 THEN
400       PRINT "PLAYER 2'S TURN!"
410       INPUT "ANGLE (0-90)? ", A
420       INPUT "VELOCITY? ", V
430       LET GX = GX2 : LET GY = GY2
440     ELSE
450       REM ** AI CALCULATES ANGLE AND VELOCITY **
460       PRINT "AI'S TURN..."
470       LET A = INT(RND * 45) + 30 ' Random angle between 30-75
480       LET V = INT(RND * 10) + 20 ' Random velocity between 20-30
490       PRINT "AI CHOOSES ANGLE="; A; " VELOCITY="; V
500       LET GX = GX2 : LET GY = GY2
510     END IF
520   END IF

530   REM ** CONVERT ANGLE TO RADIANS **
540   LET A = A * PI / 180

550   REM ** THROW BANANA **
560   FOR T = 0 TO 50 STEP 0.1
570     LET BX = GX + V * COS(A) * T
580     LET BY = GY - (V * SIN(A) * T - 0.5 * GRAVITY * T^2)
590     IF BX < 0 OR BX > SCREEN_WIDTH OR BY > SCREEN_HEIGHT THEN EXIT FOR
600     COLOR 14, 0  ' Yellow banana
610     PLOT INT(BX), INT(BY)
620     PAUSE 10
630     PLOT INT(BX), INT(BY)
640     REM ** CHECK COLLISION **
650     IF ABS(BX - GX1) < 5 AND ABS(BY - GY1) < 5 THEN GOTO 800
660     IF ABS(BX - GX2) < 5 AND ABS(BY - GY2) < 5 THEN GOTO 900
670   NEXT T
680   PRINT "MISS!"
690 NEXT TURN

700 PRINT "GAME OVER!"
710 END

720 REM ** EXPLOSION EFFECT **
730 SUB EXPLOSION(X, Y)
740 FOR R = 1 TO 10
750   COLOR 12, 0  ' Bright red for explosion
760   CIRCLE X, Y, R
770   PAUSE 20
780 NEXT R
790 FOR R = 10 TO 1 STEP -1
800   CIRCLE X, Y, R
810   PAUSE 20
820 NEXT R
830 END SUB

840 REM ** PLAYER 2 OR AI WINS **
850 PRINT "PLAYER 2 (OR AI) WINS!"
860 CALL EXPLOSION(GX1, GY1)
870 STOP

880 REM ** PLAYER 1 WINS **
900 PRINT "PLAYER 1 WINS!"
910 CALL EXPLOSION(GX2, GY2)
920 STOP

930 REM ** DRAW SUN **
940 SUB DRAWSUN
950 COLOR 14, 0  ' Yellow sun
960 FOR R = SUN_RADIUS TO 1 STEP -1
970   CIRCLE SUN_X, SUN_Y, R
980 NEXT R
990 RETURN

1000 REM ** DRAW BUILDINGS WITH WINDOWS **
1010 REM ** Random Building Heights **
1020 LET BUILDING_X1 = 40 : LET BUILDING_HEIGHT1 = INT(RND * 80) + 50
1030 LET BUILDING_X2 = 240 : LET BUILDING_HEIGHT2 = INT(RND * 80) + 50
1040 LET BUILDING_Y1 = SCREEN_HEIGHT - BUILDING_HEIGHT1
1050 LET BUILDING_Y2 = SCREEN_HEIGHT - BUILDING_HEIGHT2

1060 REM ** Draw Building 1 **
1070 COLOR 1, 0  ' Blue building
1080 FOR Y = SCREEN_HEIGHT TO BUILDING_Y1 STEP -WINDOW_SIZE*2
1090   FOR X = BUILDING_X1 TO BUILDING_X1 + BUILDING_WIDTH - WINDOW_SIZE STEP WINDOW_SIZE*2
1100     PLOT X, Y : DRAW WINDOW_SIZE, 0 : DRAW 0, -WINDOW_SIZE : DRAW -WINDOW_SIZE, 0 : DRAW 0, WINDOW_SIZE
1110   NEXT X
1120 NEXT Y

1130 REM ** Draw Building 2 **
1140 COLOR 6, 0  ' Brown building
1150 FOR Y = SCREEN_HEIGHT TO BUILDING_Y2 STEP -WINDOW_SIZE*2
1160   FOR X = BUILDING_X2 TO BUILDING_X2 + BUILDING_WIDTH - WINDOW_SIZE STEP WINDOW_SIZE*2
1170     PLOT X, Y : DRAW WINDOW_SIZE, 0 : DRAW 0, -WINDOW_SIZE : DRAW -WINDOW_SIZE, 0 : DRAW 0, WINDOW_SIZE
1180   NEXT X
1190 NEXT Y
1200 RETURN

[ghaerr]

@toncho11 - You're welcome to submit an elkscmd/basic/gorilla.bas should you like this to be more easily available for others. Can you share a screenshot of what the graphics looks like? We don't have too many graphics programs to show off basic. At some point later we could add the basic programs to a distribution disk if there become a larger variety of useful or gaming program examples.

[toncho11]

I am experimenting for now:

version 4:

10 REM ** GORILLAS GAME WITH CGA COLORS **
20 MODE 1  ' Set graphics mode
30 CLS

40 REM ** CONSTANTS **
50 LET GRAVITY = 0.1
60 LET SCREEN_WIDTH = 320
70 LET SCREEN_HEIGHT = 200
80 LET BUILDING_WIDTH = 40
90 LET WINDOW_SIZE = 5
100 LET SUN_X = 280 : LET SUN_Y = 40 : LET SUN_RADIUS = 15

110 REM ** CGA COLOR PALETTE **
120 REM Colors: 0=Black, 1=Blue, 2=Green, 3=Cyan, 4=Red, 5=Magenta, 6=Brown, 7=White, etc.
130 COLOR 3, 0  ' Cyan background with black text
140 CLS

150 REM ** DRAW BACKGROUND: SUN AND SKYLINE **
160 GOSUB 940  ' Draw the sun
170 GOSUB 1000  ' Draw the buildings

180 REM ** PLAYER POSITIONS (TOP OF RANDOM BUILDINGS) **
190 LET GX1 = BUILDING_X1 + BUILDING_WIDTH / 2
200 LET GY1 = BUILDING_Y1 - 5
210 LET GX2 = BUILDING_X2 + BUILDING_WIDTH / 2
220 LET GY2 = BUILDING_Y2 - 5

230 REM ** DRAW GORILLAS **
240 COLOR 4, 0  ' Red for gorillas
250 PLOT GX1, GY1 : DRAW 5, 0 : DRAW 0, -5 : DRAW -5, 0 : DRAW 0, 5
260 PLOT GX2, GY2 : DRAW 5, 0 : DRAW 0, -5 : DRAW -5, 0 : DRAW 0, 5

270 REM ** GAME MODE SELECTION **
280 PRINT "GORILLAS GAME: SELECT MODE"
290 PRINT "1: SINGLE PLAYER (VS AI)"
300 PRINT "2: TWO PLAYERS"
310 INPUT "ENTER CHOICE (1 OR 2): ", GAME_MODE

320 REM ** GAME LOOP **
330 FOR TURN = 1 TO 10
340   REM ** DETERMINE PLAYER TURN **
350   IF TURN MOD 2 = 1 THEN
360     PRINT "PLAYER 1'S TURN!"
370     INPUT "ANGLE (0-90)? ", ANGLE
380     INPUT "VELOCITY? ", VELOCITY
390     LET GX = GX1 : LET GY = GY1
400   ELSE
410     IF GAME_MODE = 2 THEN
420       PRINT "PLAYER 2'S TURN!"
430       INPUT "ANGLE (0-90)? ", ANGLE
440       INPUT "VELOCITY? ", VELOCITY
450       LET GX = GX2 : LET GY = GY2
460     ELSE
470       REM ** AI CALCULATES ANGLE AND VELOCITY **
480       PRINT "AI'S TURN..."
490       LET ANGLE = INT(RND * 45) + 30  ' Random angle between 30-75
500       LET VELOCITY = INT(RND * 10) + 20  ' Random velocity between 20-30
510       PRINT "AI CHOOSES ANGLE="; ANGLE; " VELOCITY="; VELOCITY
520       LET GX = GX2 : LET GY = GY2
530     END IF
540   END IF

550   REM ** CONVERT ANGLE TO RADIANS **
560   LET ANGLE = ANGLE * PI / 180

570   REM ** THROW BANANA **
580   FOR T = 0 TO 50 STEP 0.1
590     LET BX = GX + VELOCITY * COS(ANGLE) * T
600     LET BY = GY - (VELOCITY * SIN(ANGLE) * T - 0.5 * GRAVITY * T^2)
610     IF BX < 0 OR BX > SCREEN_WIDTH OR BY > SCREEN_HEIGHT THEN EXIT FOR
620     COLOR 14, 0  ' Yellow banana
630     PLOT INT(BX), INT(BY)
640     PAUSE 10
650     PLOT INT(BX), INT(BY)
660     REM ** CHECK COLLISION **
670     IF ABS(BX - GX1) < 5 AND ABS(BY - GY1) < 5 THEN GOTO 850
680     IF ABS(BX - GX2) < 5 AND ABS(BY - GY2) < 5 THEN GOTO 860
690   NEXT T
700   PRINT "MISS!"
710 NEXT TURN

720 PRINT "GAME OVER!"
730 END

740 REM ** EXPLOSION EFFECT **
750 SUB EXPLOSION(X, Y)
760 FOR R = 1 TO 10
770   COLOR 12, 0  ' Bright red for explosion
780   CIRCLE X, Y, R
790   PAUSE 20
800 NEXT R
810 FOR R = 10 TO 1 STEP -1
820   CIRCLE X, Y, R
830   PAUSE 20
840 NEXT R
850 END SUB

860 REM ** PLAYER 2 OR AI WINS **
870 PRINT "PLAYER 2 (OR AI) WINS!"
880 EXPLOSION GX1, GY1
890 STOP

900 REM ** PLAYER 1 WINS **
910 PRINT "PLAYER 1 WINS!"
920 EXPLOSION GX2, GY2
930 STOP

940 REM ** DRAW SUN **
950 SUB DRAWSUN
960 COLOR 14, 0  ' Yellow sun
970 FOR R = SUN_RADIUS TO 1 STEP -1
980   CIRCLE SUN_X, SUN_Y, R
990 NEXT R
1000 END SUB

1010 REM ** DRAW BUILDINGS WITH WINDOWS **
1020 REM ** Random Building Heights **
1030 LET BUILDING_X1 = 40
1040 LET BUILDING_HEIGHT1 = INT(RND * 80) + 50
1050 LET BUILDING_X2 = 240
1060 LET BUILDING_HEIGHT2 = INT(RND * 80) + 50
1070 LET BUILDING_Y1 = SCREEN_HEIGHT - BUILDING_HEIGHT1
1080 LET BUILDING_Y2 = SCREEN_HEIGHT - BUILDING_HEIGHT2

1090 REM ** Draw Building 1 **
1100 COLOR 1, 0  ' Blue building
1110 FOR Y = SCREEN_HEIGHT TO BUILDING_Y1 STEP -WINDOW_SIZE * 2
1120   FOR X = BUILDING_X1 TO BUILDING_X1 + BUILDING_WIDTH - WINDOW_SIZE STEP WINDOW_SIZE * 2
1130     PLOT X, Y : DRAW WINDOW_SIZE, 0 : DRAW 0, -WINDOW_SIZE : DRAW -WINDOW_SIZE, 0 : DRAW 0, WINDOW_SIZE
1140   NEXT X
1150 NEXT Y

1160 REM ** Draw Building 2 **
1170 COLOR 6, 0  ' Brown building
1180 FOR Y = SCREEN_HEIGHT TO BUILDING_Y2 STEP -WINDOW_SIZE * 2
1190   FOR X = BUILDING_X2 TO BUILDING_X2 + BUILDING_WIDTH - WINDOW_SIZE STEP WINDOW_SIZE * 2
1200     PLOT X, Y : DRAW WINDOW_SIZE, 0 : DRAW 0, -WINDOW_SIZE : DRAW -WINDOW_SIZE, 0 : DRAW 0, WINDOW_SIZE
1210   NEXT X
1220 NEXT Y
1230 END SUB

[toncho11]

Actually I can not test it. It is because I am on Windows with WSL and mount does not work. There are other problems as well.

We need a host version of this basic so that development can be done easier. In this case a graphical 64 bit compatible library must be selected such SDL2 for Linux.

[tyama501]

Thank you for the codes.
I think current CGA 320x240 mode cannot use 8 colores. It is 4 colors.

[toncho11]

gorillas.zip