1 'Tunnel 2 'By Johnnie Chan 3 'Amstrad Action July 88 10 MODE 1:INK 0,0:BORDER 0:INK 1,16 20 FOR t=2 TO 14:INK t,24:NEXT:INK 15,26 30 INPUT"No.of sides ",s 40 INPUT"How far apart ",re 50 MODE 0:DEG:ORIGIN 320,200 60 FOR r=5 TO 405 STEP re 70 c=c+1:IF c>14 THEN c=1 80 MOVE 0,r:FOR t=0 TO 360 STEP 360‡ s:DRAW r*SIN(t),r*COS(t),c:NEXT 90 NEXT 100 GOSUB 140 110 i=i+1:IF i>14 THEN i=1 120 INK i,26:FOR t=1 TO 30:NEXT:FRAME:INK i,0 130 GOTO 110 140 REM display 150 ORIGIN 0,0 160 MOVE 1,1:DRAW 639,1,15:DRAW 639,70:DRAW 1,70:DRAW 1,1:FOR t=4 TO 635:MOVE t,2:DRAW t,69,0:NEXT 170 po=50:GOSUB 190 180 po=490:GOSUB 190:RETURN 190 FOR n=po TO po+100 STEP 100:ORIGIN n,35:MOVE 0,30:FOR t=0 TO 360 STEP 10:DRAW 30*SIN(t),30*COS(t),15:NEXT:FOR t=0 TO 360 STEP 25:MOVE 0,0:DRAW 27*SIN(t),27*COS(t),c:c=c+1:IF c>14 THEN c=1 200 NEXT:NEXT:RETURN 210 END