10 CLS 'VX-4 LINE DREW
20 DEFCHR$(252)="566054370F93"
30 DIM P(7):P(7)=1:P(6)=2:P(5)=4:P(4)=8:P(3)=16:P(2)=32:P(1)=64:P(0)=128
40 AD=&H123C
50 X1=X2:Y1=Y2:X2=INT(RAN#*192):Y2=INT(RAN#*32)
60 GOSUB 200
70 GOTO 50
100 '
110 IF X<0 OR X>191 OR Y<0 OR Y>31 THEN RETURN
120 B=AD+INT(X)+INT(Y/8)*192:P=P(Y MOD 8) OR PEEK(B):POKE B,P
130 RETURN
200 '
210 B=X2-X1:C=Y2-Y1:AB=ABS(B):AC=ABS(C):IF AB>AC THEN XP=SGN(B):YP=AC/AB*SGN(C) ELSE IF AB<AC THEN XP=AB/AC*SGN(B):YP=SGN(C) ELSE XP=SGN(B):YP=SGN(C)
220 X=X1:Y=Y1
230 GOSUB 100:X=X+XP:Y=Y+YP:IF ROUND(X,-1)=X2 AND ROUND(Y,-1)=Y2 THEN GOSUB 100:MODE110(&H153C):RETURN
240 GOTO 230