L. 10 MODE 2 20 REM SPRITE (VDU 23,REDEFCHARACTER,8 VALUES) 30 VDU 23,224,24,60,126,219,126,36,66,129 40 REM BLINKING COLOUR FOREGROUND 50 COLOUR 11 60 REM BACKGROUND COLOUR 70 COLOUR 128 80 CLS 90 REM PRINT THE SPRITES (224) BESIDES THE TEXT 100 PRINT CHR$(224); " Bomb disposal "; CHR$(224) 110 REM SET FOREGROUNDCOLOUR BACK TO WHITE 120 COLOUR 7 130 PRINT:PRINT 140 INPUT "Which number"; X 150 IF X=10 THEN 160 ELSE GOTO 180 160 PRINT:PRINT"Phew" 170 GOTO 190 180 PRINT:PRINT"Retry" 190 END >
In line 30 is the sprite, with VDU 23 you can redefine characters (in this case 224). the values after that are from an 8 x 8 grid.
From left to right the values are : 128,64,32,16,8,4,2,1
000XX000 = 24
00XXXX00 = 60
0XXXXXX0 = 126
XX0XX0XX = 219
0XXXXXX0 = 126
00X00X00 = 36
0X0000X0 = 66
X000000X= 129
It isn't that difficult I believe.
The colours are random picks and there are lists which colours are possible in the different modes.
Good luck!