l Primer: 100 I-1 110 PRINT " " l20 HIRES 0,1 130 FOR X-0 TO 320 STEP 0.5 140: Ysl00-00S (X/33)x90 450: PIOT X,X,1 160: S-TEST (X,100) 170: IF S-l1 THEN GOSUB 1000 180: PLOT X,101,1 190 NEXT X 200 PAUSE 30 210 END | 1000 REM 4444444 PODPROGRAM ttttta4 1010 N(I)