15) DRAWING (403 B)
To use: LOAD 5, RUN 700
 How to prepare your own image: Create a black and white image with
 a resolution of 32x24 pixels in a graphics editor. Save it to
 a Windows BMP file in "1-bit bitmap" format, with switch "Flip row order".
 Display the image in a HEX editor - you can use the F3 function in
 FAR Manager, switching to HEX mode. Read the bytes in HEX format
 sequentially, starting from offset 0x003E, and write them 4 bytes
 at a time to the Windows calculator in HEX format. Switch the mode to
 decimal format to obtain the number in decimal format for DATA. For
 example, rewrite the sequence 0F 80 03 E0 to the calculator as the HEX
 number 0F8003E0. Switch to decimal format to obtain the number 260047840.

700 REM
710 REM DRAWING
720 REM
730 FOR I=0 TO 23
740 LET C=READ
750 IF C<0 THEN PRINT CHR$(128);
760 IF NOT C<0 THEN PRINT " ";
770 LET M=2**30
780 FOR J=0 TO 30
790 IF C AND M THEN PRINT CHR$(128);
800 IF (C AND M)=0 THEN PRINT " ";
810 LET M=M/2
820 NEXT J
830 PRINT
840 NEXT I
850 IF INKEY$="" THEN GOTO 850
860 STOP
870 DATA 0, 260047840, 533719024, 536362992, 532678640, 520094192, 503316720, 201326688
880 DATA 410000432, 284704272, 837578520, 569143048, 569143048, 553369096, 537100296, 537100296
890 DATA 805904408, 269033488, 403095600, 201326688, 100663744, 62916352, 8387584, 0