★ CODING ★ LISTINGS ★ ACID ★ |
Acid | Coding Listings |
20 DEG:PLOT 320+COS(1)*190,200+SIN(1)*190,1:FOR a=1 TO 365 STEP 5:DRAW 320+COS(a)*190,200+SIN(a)*190:NEXT:PLOT 320+COS(1)*175,200+SIN(1)*175:FOR a=1 TO 365 STEP 5:DRAW 320+COS(a)*175,200+SIN(a)*175:NEXT 30 PLOT 250+COS(1)*30,250+SIN(1)*35:FOR a=1 TO 365 STEP 5:DRAW 250+COS(a)*30,250+SIN(a)*35:NEXT:PLOT 390+COS(1)*30,250+SIN(1)*35:FOR a=1 TO 365 STEP 5:DRAW 390+COS(a)*30,250+SIN(a)*35:NEXT 40 PLOT 320+COS(190)*150,200+SIN(190)*155:FOR a=190 TO 353 STEP 5:DRAW 320+COS(a)*150,200+SIN(a)*155:NEXT:PLOT 320+COS(190)*145,200+SIN(190)*130:FOR a=190 TO 353 STEP 5:DRAW 320+COS(a)*145,200+SIN(a)*130:NEXT 50 PLOT 465+COS(51)*20,178+SIN(1)*5:FOR a=1 TO 360 STEP 5:DRAW 465+COS(a+50)*20,178+SIN(a)*5:NEXT 60 PLOT 175+COS(1)*20,178+SIN(51)*5:FOR a=1 TO 360 STEP 5:DRAW 175+COS(a)*20,178+SIN(a+50)*5:NEXT 70 MOVE 320,200:FILL 2 80 PLOT 320+COS(190)*150,200+SIN(190)*155,3:FOR a=190 TO 353 STEP 5:DRAW 320+COS(a)*150,200+SIN(a)*155:NEXT:PLOT 320+COS(190)*145,200+SIN(190)*130:FOR a=190 TO 350 STEP 5:DRAW 320+COS(a)*145,200+SIN(a)*130:NEXT 90 INK 3,0,26 100 CALL &BB18:END 110 DEG:MODE 1:PEN 2:FOR i=1 TO 39 STEP 2:LOCATE i,1:PRINT CHR$(143);:LOCATE i,25:PRINT CHR$(143);:NEXT:PEN 3:FOR i=2 TO 40 STEP 2:LOCATE i,1:PRINT CHR$(143);:LOCATE i,25:PRINT CHR$(143);:NEXT 120 FOR x=2 TO 24 STEP 2:PEN 3:LOCATE 1,x:PRINT CHR$(143);:PEN 2:LOCATE 40,x:PRINT CHR$(143);:NEXT:FOR x=3 TO 23 STEP 2:PEN 2:LOCATE 1,x:PRINT CHR$(143);:PEN 3:LOCATE 40,x:PRINT CHR$(143);:NEXT 130 ORIGIN 320,200:FOR i=1 TO 360:PLOT 190*COS(i),170*SIN(i):PLOT 169*COS(i),169*SIN(i):NEXT 140 FOR h=1 TO 360:ORIGIN 400,275:PLOT 25*COS(h),40*SIN(h):ORIGIN 250,275:PLOT 25*COS(h),40*SIN(h):NEXT 150 FOR h=180 TO 360:ORIGIN 325,200:PLOT 140*COS(h),70*SIN(h):ORIGIN 325,200:PLOT 140*COS(h),110*SIN(h):NEXT:INK 3,24,6:INK 2,6,24:CALL &BB06 |
|
|