GW Basic simple BMP Loader

[ron77]

5 SCREEN 8
10 OPEN "R", #1, "mac.bmp",2
20 FIELD #1,2 AS N$
30 GET #1,10:WID=CVI(N$):GET#1,12:HEI=CVI(N$)
40 GET #1,6:GET #1,CVI(N$)\2
45 FIELD #1,1 AS N$,1 AS M$
50 FOR Y%=HEI-1 TO 0 STEP -1
60 FOR X%=0 TO WID-1 STEP 4
65 GET #1 : L% = ASC(N$) : R% = ASC(M$)
70 PSET(X%,Y%),L%\16 : PSET(X%+1,Y%),L% AND 15
75 PSET(X%+2,Y%),R%\16: PSET(X%+3,Y%),R% AND 15
80 NEXT X%,Y%
90 CLOSE #1

You cannot view this attachment.

You cannot view this attachment.