OpenW # 1, 20, 20, 400, 200 TitleW # 1, "Loco" Dim ya, x1, y1, k, x2, y2, xl, xr, yt, yb, x, xc, yc, r, y, re, da, x1, y1, m, xs, a Cls ya = 5 / 6 Read x1, y1 Draw x1, y1 For k = 1 To 25 Read x2, y2 Draw To x2, y2 Next k Read xl, xr, yt, yb For x = xl To xr Draw x, yt To x, yb Next x For k = 1 To 6 Read x1, y1, x2, y2 Draw x1, y1 To x2, y2 Next k For k = 1 To 4 Read xc, yc, r Circle xc, yc, r Next k y = 152 r = 15 re = 360 * PI / 180 da = 50 * PI / 180 For a = re To da Step da x1 = xc + r * Sin(a) y1 = yc + r * Cos(a) * ya Color 1 Draw x1, y1 To x1 - 90, y1 For x = xs To 319 Step 35 Plot x, y Next x Color 0 For x = xs To 319 Step 35 Plot x, y Next x xs = xs + 7 If xs >= 30 xs = 0 EndIf Draw x1, y1 To x1 - 90, y1 Next a Data 270,130,290,130,290,50,300,50,300,30,220,30,220,70,200,70 Data 200,50,170,50,170,70,90,70,90,50,100,40,60,40,70,50,70,70 Data 60,70,50,80,50,110,60,120,40,120,20,150,50,150,50,130,90,130 Data 230,280,40,70 Data 220,70,220,100,220,100,65,100 Data 65,100,45,125,130,130,140,130 Data 0,154,319,154,180,130,230,130 Data 65,140,10,110,130,20,160,130,20,250,130,20