31 lines
365 B
Text
31 lines
365 B
Text
PROC PutBigPixel(BYTE x,y,c)
|
|
BYTE i
|
|
|
|
Color=c
|
|
x=x*3+16
|
|
y=y*12
|
|
FOR i=0 TO 11
|
|
DO
|
|
Plot(x,y+i)
|
|
DrawTo(x+2,y+i)
|
|
OD
|
|
RETURN
|
|
|
|
PROC Main()
|
|
BYTE
|
|
CH=$02FC, ;Internal hardware value for last key pressed
|
|
x,y
|
|
|
|
Graphics(9)
|
|
|
|
FOR y=0 TO 15
|
|
DO
|
|
FOR x=0 TO 15
|
|
DO
|
|
PutBigPixel(x,y,x!y)
|
|
OD
|
|
OD
|
|
|
|
DO UNTIL CH#$FF OD
|
|
CH=$FF
|
|
RETURN
|