04-27-2022, 04:13 AM
Fighter-Planes.bas by Bob Seguin.
![[Image: Screenshot-644.png]](https://i.ibb.co/s6WVDwj/Screenshot-644.png)
Description: Simple graphics depiction of two WWII fighter planes.
Description: Simple graphics depiction of two WWII fighter planes.
Code: (Select All)
_TITLE "WWII Fighter Planes by Bob Seguin"
DEFINT A-Z
DIM Box(1825)
SCREEN 12
RESTORE PaletteDATA
OUT &H3C8, 0
FOR n = 1 TO 48
READ Colr: OUT &H3C9, Colr
NEXT n
RESTORE PlaneDATA
GOSUB DrawPLANE
GET (0, 0)-(89, 75), Box()
PUT (0, 0), Box()
PUT (348, 160), Box()
RESTORE Plane2DATA
GOSUB DrawPLANE
GET (0, 0)-(89, 75), Box()
PUT (0, 0), Box()
PUT (200, 160), Box()
a$ = INPUT$(1)
END
DrawPLANE:
MaxWIDTH = 89
MaxDEPTH = 75
x = 0: y = 0
DO
READ Count, Colr
FOR Reps = 1 TO Count
PSET (x, y), Colr
x = x + 1
IF x > MaxWIDTH THEN
x = 0
y = y + 1
END IF
NEXT Reps
LOOP UNTIL y > MaxDEPTH
RETURN
PlaneDATA:
DATA 44,0,1,8,1,15,87,0,1,8,1,7,1,15,1,8,86,0,1,8,1,7,1,15
DATA 1,7,85,0,6,8,83,0,1,7,1,0,4,8,1,0,1,7,82,0,8,8,82,0
DATA 1,7,1,0,4,8,1,0,1,7,82,0,8,8,82,0,1,7,1,0,4,8,1,0
DATA 1,7,82,0,8,8,82,0,1,7,1,0,4,8,1,0,1,7,82,0,8,8,82,0
DATA 1,6,5,3,1,2,1,13,82,0,1,6,3,3,3,2,1,13,82,0,1,6,3,3
DATA 3,2,1,13,64,0,1,7,2,0,1,7,2,0,1,7,11,0,1,6,1,3,5,2
DATA 1,13,11,0,1,7,2,0,1,7,2,0,1,7,46,0,1,8,2,0,1,8,2,0
DATA 1,8,11,0,1,6,6,2,1,13,11,0,1,8,2,0,1,8,2,0,1,8,46,0
DATA 1,8,2,0,1,8,2,0,1,8,11,0,1,6,6,2,1,13,11,0,1,8,2,0
DATA 1,8,2,0,1,8,26,0,1,6,1,3,2,12,13,2,3,12,8,2,7,12,3,2
DATA 1,6,4,2,1,3,1,2,1,13,7,2,8,12,12,2,9,12,1,3,1,6,5,0
DATA 1,3,4,12,7,2,5,9,4,12,8,2,7,12,3,2,1,6,3,2,2,3,1,2
DATA 1,13,7,2,8,12,7,2,5,9,11,12,1,3,3,0,1,3,5,5,6,13,7,9
DATA 4,5,6,13,9,5,2,13,1,6,3,2,3,3,7,13,10,5,5,13,7,9,11,5
DATA 1,3,1,0,1,3,2,5,1,12,1,5,1,12,1,5,1,2,1,13,1,2,1,13
DATA 1,2,3,9,3,15,3,9,1,12,1,5,1,12,1,13,1,2,1,13,1,2,1,13
DATA 1,2,1,13,1,12,1,5,1,12,1,5,1,12,1,5,1,12,1,5,1,12,1,13
DATA 1,6,2,2,4,3,2,13,1,2,1,13,1,2,1,13,1,2,1,5,1,12,1,5
DATA 1,12,1,5,1,12,1,5,1,12,1,5,1,12,1,13,1,2,1,13,1,2,3,9
DATA 3,15,3,9,1,12,1,5,1,12,1,5,1,12,1,5,1,12,1,5,1,12,2,5
DATA 1,3,6,12,5,2,2,9,2,15,3,4,2,15,2,9,3,12,6,2,10,12,1,6
DATA 1,2,5,3,1,5,6,2,10,12,3,2,2,9,2,15,3,4,2,15,2,9,15,12
DATA 6,2,3,9,1,15,5,4,1,15,3,9,3,12,5,2,10,12,1,6,1,2,5,3
DATA 1,5,7,2,9,12,2,2,3,9,1,15,5,4,1,15,3,9,14,12,6,2,2,9
DATA 1,15,7,4,1,15,2,9,5,12,3,2,10,12,1,6,1,2,5,3,1,5,7,2
DATA 9,12,2,2,2,9,1,15,7,4,1,15,2,9,12,12,8,2,2,9,1,15,7,4
DATA 1,15,2,9,6,12,3,2,9,12,1,6,6,3,1,5,7,2,9,12,2,2,2,9
DATA 1,15,7,4,1,15,2,9,10,12,1,3,9,2,2,9,1,15,7,4,1,15,2,9
DATA 1,12,1,3,1,12,1,3,1,12,1,3,4,2,1,12,1,3,1,12,1,3,1,12
DATA 1,3,1,12,1,3,1,6,6,3,1,5,7,2,1,12,1,3,1,12,1,3,1,12
DATA 1,3,1,12,1,3,1,12,2,2,2,9,1,15,7,4,1,15,2,9,1,12,1,3
DATA 1,12,1,3,1,12,1,3,1,12,1,3,1,12,1,3,1,6,1,11,1,2,1,11
DATA 1,2,1,11,1,2,1,11,1,2,1,11,3,9,1,15,5,4,1,15,3,9,1,3
DATA 1,12,1,3,1,12,1,3,1,12,1,11,1,2,1,11,1,2,1,3,1,12,1,3
DATA 1,12,1,3,1,12,1,3,1,12,1,6,2,3,2,10,2,3,1,5,1,2,1,11
DATA 1,2,1,11,1,2,1,11,1,12,1,3,1,12,1,3,1,12,1,3,1,12,1,3
DATA 1,12,1,3,1,12,1,11,3,9,1,15,5,4,1,15,3,9,1,3,1,12,1,3
DATA 1,12,1,3,1,12,1,3,1,12,1,3,1,6,1,0,1,6,8,11,1,3,2,9
DATA 2,15,3,4,2,15,2,9,7,3,5,11,7,3,1,6,1,3,3,10,1,15,1,3
DATA 1,5,6,11,12,3,1,11,2,9,2,15,3,4,2,15,2,9,9,3,1,6,3,0
DATA 1,6,4,11,5,3,3,9,3,15,3,9,9,3,5,11,6,3,2,6,2,10,2,15
DATA 1,6,1,5,6,11,12,3,2,11,3,9,3,15,3,9,1,11,8,3,1,6,6,0
DATA 1,6,8,3,7,9,11,3,6,11,4,3,1,6,3,10,3,15,1,5,6,11,12,3
DATA 3,11,7,9,2,11,6,3,1,6,9,0,2,6,1,3,1,6,1,3,1,6,1,3
DATA 1,6,1,3,5,9,1,3,1,6,1,3,1,6,1,3,1,6,1,3,1,6,1,3
DATA 1,6,1,3,1,6,1,3,6,11,1,6,1,3,8,6,1,5,5,11,1,3,1,6
DATA 1,3,1,6,1,3,1,6,1,3,1,6,1,3,1,6,1,3,1,6,1,3,4,11
DATA 5,9,6,11,1,3,2,6,12,0,1,6,1,3,1,6,1,3,1,6,1,3,1,6
DATA 1,3,1,6,1,3,1,6,1,3,1,6,1,3,1,6,1,3,1,6,1,3,1,6
DATA 1,3,1,6,1,3,1,6,1,3,7,11,1,3,1,6,1,3,1,6,1,10,1,3
DATA 1,10,1,15,1,3,1,15,1,5,5,11,1,6,1,3,1,6,1,3,1,6,1,3
DATA 1,6,1,3,1,6,1,3,1,6,1,3,1,6,1,3,14,11,1,6,16,0,18,12
DATA 4,6,7,11,4,6,1,10,1,3,1,10,1,15,1,3,1,15,1,5,5,11,8,6
DATA 8,12,10,2,1,6,21,0,14,6,1,3,6,6,6,11,3,6,1,10,4,3,1,15
DATA 1,5,4,11,9,6,1,3,10,6,5,11,28,0,10,6,1,3,6,6,7,11,2,6
DATA 1,10,4,3,1,15,1,5,4,11,9,6,1,3,11,6,38,0,4,6,1,3,7,6
DATA 6,11,2,6,1,10,4,3,1,15,1,5,3,11,10,6,1,3,5,6,63,0,1,6
DATA 1,10,4,3,1,15,1,5,82,0,1,6,6,3,1,5,82,0,1,6,6,3,1,5
DATA 82,0,1,9,6,3,1,9,82,0,1,15,6,3,1,15,82,0,1,4,6,3,1,4
DATA 82,0,1,4,6,3,1,4,82,0,1,4,1,2,5,3,1,4,82,0,1,15,1,2
DATA 4,3,1,5,1,15,82,0,1,9,1,2,4,3,1,5,1,9,82,0,1,6,1,2
DATA 4,3,1,5,1,6,82,0,1,6,3,2,2,3,1,5,1,6,83,0,1,6,3,2
DATA 1,3,1,5,84,0,1,6,4,2,1,13,84,0,1,6,4,2,1,13,84,0,1,6
DATA 4,2,1,13,84,0,1,6,4,2,1,13,84,0,1,6,1,3,3,2,1,13,84,0
DATA 2,6,1,3,3,2,84,0,2,6,1,3,3,2,84,0,2,6,2,3,2,2,85,0
DATA 1,6,2,3,1,5,86,0,1,6,2,3,1,5,86,0,1,6,2,3,1,5,86,0
DATA 1,6,2,3,1,5,86,0,1,6,3,5,73,0,1,3,2,12,11,2,1,6,1,5
DATA 5,2,4,3,5,2,1,6,57,0,1,6,2,12,13,13,1,6,1,5,2,13,5,3
DATA 9,13,54,0,1,6,1,12,3,3,13,2,1,6,1,5,6,3,11,2,1,6,51,0
DATA 1,6,1,12,4,3,1,2,1,11,1,2,1,11,1,2,1,11,1,2,1,11,1,2
DATA 1,11,1,2,1,11,1,3,1,6,1,5,6,3,1,11,1,2,1,11,1,2,1,11
DATA 1,2,1,11,1,2,1,11,1,2,1,11,1,2,1,6,50,0,1,6,1,12,1,3
DATA 15,11,1,3,1,6,1,5,6,3,12,11,1,6,50,0,1,6,1,3,16,11,1,3
DATA 1,6,1,5,6,3,12,11,1,6,50,0,1,6,12,11,6,3,1,6,1,5,4,3
DATA 14,11,1,6,51,0,10,11,8,3,1,6,1,5,4,3,14,11,53,0,9,2,8,12
DATA 1,6,1,5,3,12,14,2,55,0,1,6,7,11,8,3,1,6,1,5,3,3,12,11
DATA 1,6,58,0,1,6,4,11,9,3,1,6,1,5,2,3,11,11,1,6,62,0,1,6
DATA 11,3,1,6,1,5,2,3,10,11,68,0,1,6,7,3,1,6,1,5,2,3,5,11
DATA 1,6,36,0
Plane2DATA:
DATA 44,0,1,8,1,15,87,0,1,8,1,7,1,15,1,8,86,0,1,8,1,7,1,15
DATA 1,7,85,0,6,8,83,0,1,7,1,0,4,8,1,0,1,7,81,0,1,7,8,8
DATA 1,7,80,0,2,7,1,0,4,8,1,0,2,7,80,0,1,7,8,8,1,7,80,0
DATA 2,7,1,0,4,8,1,0,2,7,80,0,1,7,8,8,1,7,81,0,1,7,1,0,4,8
DATA 1,0,1,7,82,0,8,8,82,0,6,8,1,7,1,15,82,0,4,8,3,7,1,15
DATA 82,0,4,8,3,7,1,15,67,0,1,7,2,0,1,7,11,0,2,8,5,7,1,15
DATA 11,0,1,7,2,0,1,7,52,0,1,8,2,0,1,8,11,0,1,8,6,7,1,15
DATA 11,0,1,8,2,0,1,8,52,0,1,8,2,0,1,8,11,0,1,8,6,7,1,15
DATA 11,0,1,8,2,0,1,8,26,0,7,8,13,7,3,8,8,7,7,8,3,7,1,8
DATA 4,7,1,8,1,7,1,15,7,7,8,8,12,7,21,8,11,7,5,8,8,7,7,8
DATA 3,7,1,8,3,7,2,8,1,7,1,15,7,7,8,8,12,7,14,8,7,7,10,15
DATA 7,7,6,15,9,7,2,15,1,8,3,7,3,8,7,15,10,7,12,15,13,7
DATA 1,8,2,7,1,8,1,7,1,8,2,7,1,15,1,7,1,15,1,7,1,15,1,7
DATA 1,15,1,7,1,15,1,8,1,7,1,8,2,7,3,15,1,7,1,15,1,7,1,15
DATA 1,7,1,15,1,8,1,7,1,8,1,7,1,8,1,7,1,8,1,7,1,8,1,15,1,8
DATA 2,7,4,8,2,15,1,7,1,15,1,7,1,15,2,7,1,8,1,7,1,8,1,7
DATA 1,8,1,7,1,8,2,7,3,15,1,7,1,15,1,7,1,15,1,7,1,15,1,7
DATA 1,15,2,7,1,8,1,7,1,8,1,7,1,8,1,7,1,8,1,7,1,8,2,7,7,8
DATA 10,7,4,8,1,15,1,7,1,8,1,15,1,8,1,7,1,15,4,7,11,8,1,7
DATA 5,8,7,7,8,8,1,15,1,7,1,8,1,15,1,8,1,7,1,15,7,7,17,8
DATA 11,7,4,8,2,15,1,7,1,8,1,15,1,8,1,7,2,15,3,7,11,8,1,7
DATA 5,8,8,7,6,8,2,15,1,7,1,8,1,15,1,8,1,7,2,15,6,7,17,8
DATA 11,7,3,8,4,7,1,8,1,15,1,8,6,7,11,8,1,7,5,8,8,7,5,8
DATA 4,7,1,8,1,15,1,8,9,7,15,8,11,7,5,8,1,15,4,8,1,15,4,8
DATA 1,15,3,7,16,8,8,7,5,8,1,15,4,8,1,15,4,8,1,15,5,7,14,8
DATA 11,7,6,8,11,15,4,7,10,8,4,10,1,8,8,7,5,8,11,15,4,7
DATA 15,8,10,7,7,8,1,15,4,8,1,15,4,8,1,15,4,7,10,8,3,10
DATA 1,15,1,8,7,7,6,8,1,15,4,8,1,15,3,8,1,7,1,15,3,7,17,8
DATA 8,7,8,8,4,7,1,8,1,15,1,8,9,7,9,8,3,10,1,15,1,8,7,7
DATA 6,8,4,7,1,8,1,15,1,8,10,7,15,8,4,7,12,8,2,15,1,7,1,8
DATA 1,15,1,8,1,7,2,15,2,8,5,7,7,8,3,10,3,15,7,7,7,8,2,15
DATA 1,7,1,8,1,15,1,8,1,7,2,15,8,7,31,8,1,15,1,7,1,8,1,15
DATA 1,8,1,7,1,15,4,8,6,7,5,8,3,10,3,15,7,7,8,8,1,15,1,7
DATA 1,8,1,15,1,8,1,7,1,15,9,7,11,8,1,0,20,8,1,7,3,15,1,7
DATA 6,8,6,7,10,8,6,7,10,8,1,7,3,15,14,7,8,8,4,0,3,8,22,7
DATA 2,8,7,7,4,8,1,10,1,8,1,10,1,15,1,8,1,15,6,7,14,8,14,7
DATA 6,8,9,0,21,8,1,7,2,8,7,7,4,8,1,10,1,8,1,10,1,15,1,8
DATA 1,15,6,7,7,8,19,7,4,8,18,0,16,8,1,7,4,8,6,7,3,8,1,10
DATA 1,8,1,10,1,15,1,8,1,15,5,7,8,8,1,7,11,8,5,7,2,8,26,0
DATA 12,8,1,7,4,8,7,7,2,8,1,10,1,8,1,10,1,15,1,8,1,15,5,7
DATA 8,8,1,7,13,8,37,0,6,8,1,7,5,8,6,7,4,8,1,10,1,15,2,8
DATA 4,7,9,8,1,7,6,8,63,0,1,8,1,10,1,8,1,10,1,15,1,8,1,15
DATA 1,7,82,0,7,8,1,7,82,0,7,8,1,7,82,0,1,15,6,8,1,15,82,0
DATA 1,15,6,8,1,15,83,0,6,8,84,0,6,8,84,0,1,7,5,8,83,0,1,15
DATA 1,7,4,8,1,7,1,15,82,0,1,15,1,7,4,8,1,7,1,15,82,0,1,8
DATA 1,7,4,8,1,7,1,8,82,0,1,8,3,7,2,8,1,7,1,8,83,0,1,8,3,7
DATA 1,8,1,7,84,0,1,8,5,7,84,0,1,8,5,7,84,0,1,8,5,7,84,0
DATA 1,8,5,7,84,0,2,8,4,7,84,0,3,8,3,7,84,0,3,8,3,7,84,0
DATA 4,8,2,7,85,0,3,8,1,7,86,0,3,8,1,7,86,0,3,8,1,7,86,0
DATA 3,8,1,7,86,0,1,8,3,7,73,0,3,8,11,7,1,8,6,7,4,8,5,7
DATA 1,8,57,0,3,8,13,15,1,8,1,7,2,15,5,8,9,15,56,0,3,8,13,7
DATA 1,8,1,7,6,8,10,7,56,0,3,8,12,7,2,8,1,7,6,8,10,7,56,0
DATA 15,7,2,8,1,7,6,8,10,7,56,0,15,7,2,8,1,7,6,8,10,7,56,0
DATA 10,7,7,8,1,7,4,8,12,7,56,0,8,7,9,8,1,7,4,8,12,7,56,0
DATA 8,8,8,7,1,8,4,7,13,8,56,0,1,8,7,7,9,8,1,7,3,8,12,7
DATA 1,8,58,0,1,8,4,7,10,8,1,7,2,8,11,7,1,8,74,0,1,8,1,7
DATA 88,0,1,8,1,7,44,0
PaletteDATA:
DATA 0,0,30,0,0,42,38,23,0,13,16,0
DATA 63,0,0,27,30,0,6,9,0,42,42,42
DATA 21,21,21,21,21,63,38,43,53,33,18,0
DATA 19,23,0,45,27,0,63,63,21,63,63,63