REM ==       Gasket draw routein             ========
REM C:Kazutomi Miyama/Kazuki Kimijima VYE00525@
REM niftyserve.or.jp /Kimijima@mix.or.jp
PRINT "If you take return key,then it make to start."
PRINT "After drawing, Put return key then graphics is vanished."
INPUT start0101$
CLS 2
SCREEN 88
DIM mark(640)
FOR i = 0 TO 640
IF INT(i / 2) = i / 2 THEN mark(i) = -1
IF INT(i / 2) < i / 2 THEN mark(i) = 1
REM print mark(0)
REM end 
NEXT i
FOR y = 0 TO 399
FOR x = 0 TO 639
IF mark(x) = -1 THEN pxcel = 0
IF mark(x) = 1 THEN pxcel = 7
PSET (x, y), pxcel
IF x = 0 GOTO basepoint
mark(x) = mark(x - 1) * mark(x)
basepoint:
NEXT x
NEXT y
INPUT stop01$
END