mirror of
https://github.com/deater/dos33fsprogs.git
synced 2024-09-09 02:54:25 +00:00
17 lines
333 B
QBasic
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
|