Graphics 800,600,16,2
ClsColor 255,255,255
Cls
Color 0,0,0

SetBuffer(BackBuffer())       

;;GROB LINES ;;
Line 0,200,600,200
Line 0,197,600,197

Line 0,400,600,400
Line 0,397,600,397

Line 200,0,200,600
Line 203,0,203,600

Line 400,0,400,600
Line 397,0,397,600

Line 600,0,600,600
Line 597,0,597,600


Line 0,0,600,0
Line 0,3,600,3

Line 0,0,0,600
Line 3,0,3,600

Line 0,599,599,599
Line 0,597,599,597

;;END GROB LINES ;;

;;MIN LINES ;;
Line 66,0,66,600
Line 136,0,136,600

Line 266,0,266,600
Line 336,0,336,600

Line 466,0,466,600
Line 536,0,536,600


Line 0,66,600,66
Line 0,136,600,136

Line 0,266,600,266
Line 0,336,600,336


Line 0,466,600,466
Line 0,536,600,536
 

Text 100,100,"1"
Text 300,300,"2"
Text 500,500,"3"
Text 300,100,"4"
Text 500,100,"5"
Text 100,300,"6"
Text 100,500,"7"
Text 300,500,"8"
Text 500,300,"9"




Text 610,10, "Made by Sudoku Master"
SaveBuffer(BackBuffer(),"c:\Sudoku.bmp")

scale = LoadImage ("c:\Sudoku.bmp")
ScaleImage scale,0.7,0.7
 

SaveImage (scale,"c:\Sudoku.bmp")






WaitKey

Cls


ExecFile "mspaint -p "+Chr(34)+"c:\Sudoku.bmp"+Chr(34)
Print "Wird gedruckt"