dos33fsprogs/basic/appleiibot/sierpinski.bas
2021-01-31 01:25:34 -05:00

17 lines
333 B
QBasic

1 GOTO 10
5 SPEED=$)%DEL$LRUSR
10 HGR
20 FOR X=0 TO 256:FOR Y=0 TO 191
40 C1=(Y-(X*T/256))
45 IF C1<0 THEN C1=C1+256
50 C2=(Y*T/256+X)
55 IF C2<0 THEN C2=C2+256
60 POKE 2062,C1
70 POKE 2064,C2:CALL 2061
75 POKE 2062,PEEK(36):POKE 2064,252:CALL 2061
80 HCOLOR=0
85 IF PEEK(36) THEN HCOLOR=1
87 HPLOT X,Y
90 NEXT Y,X
95 T=T+10:GOTO 20