5210 POKE 87,7:POKE 89,INT(MEM7/256):POKE 88,MEM7-PEEK(89)*256:COLOR 3¢5230 RESTORE 5260¢5240 FOR X=1 TO 10:READ N,XS,Y,XE:FOR T=N-1 TO 0 STEP -1:FOR Z=0 TO 3:PLOT Z*40+9+XS,Y+T:DRAWTO Z*40+9+XE,Y+T¢5250 NEXT Z:NEXT T:NEXT X¢5260 DATA 4,16,20,20,4,1,20,5,2,15,18,20,2,1,18,6,2,14,16,20,2,1,16,7,10,1,6,20,2,2,4,19,2,3,2,18,2,4,0,17¢
