10 LPRINT "in;sp1;"
   20 LPRINT "pu;pa5200,0;pd;pa5200,7400;pu;pa0,3700;pd;pa10400,3700;pu;pa5200,3700;"
   50 GO SUB 2000
   60 GO SUB 2100
   70 GO SUB 2200
   80 GO SUB 2300
  999 STOP 
 1000 REM  kresli 
 1010 LPRINT "pa";y+5200;",";x+3700;";"
 1020 RETURN 
 2000 REM  sinus 
 2005 LET x=-3600
 2010 LET y=3600*SIN (-2*PI)
 2020 LPRINT "pu;": GO SUB 1000: LPRINT "pd;"
 2030 FOR n=-100 TO 100 STEP 1
 2040 LET x=36*n
 2050 LET y=3600*SIN (2*PI*n/100)
 2060 GO SUB 1000
 2070 NEXT n
 2080 LPRINT "pu5200,3700;"
 2090 RETURN 
 2100 REM  cosinus 
 2105 LET x=-3600
 2110 LET y=3600*COS (-2*PI)
 2120 LPRINT "pu;": GO SUB 1000: LPRINT "pd;"
 2130 FOR n=-100 TO 100 STEP 1
 2140 LET x=36*n
 2150 LET y=3600*COS (2*PI*n/100)
 2160 GO SUB 1000
 2170 NEXT n
 2180 LPRINT "pu5200,3700;"
 2190 RETURN 
 2200 REM  parabola 
 2205 LET x=-3600
 2210 LET y=-3600
 2220 LPRINT "pu;": GO SUB 1000: LPRINT "pd;"
 2230 FOR n=-100 TO 100 STEP 1
 2240 LET x=36*n
 2250 LET y=-3600*n*n/10000
 2255 IF y>10400 THEN LPRINT "pu;": GO TO 2270
 2260 LPRINT "pd;": GO SUB 1000
 2270 NEXT n
 2280 LPRINT "pu5200,3700;"
 2290 RETURN 
 2300 REM  hyperbola 
 2305 LET x=-3600
 2310 LET y=-3600*100/-3600
 2320 LPRINT "pu;": GO SUB 1000
 2330 FOR n=-100 TO 100 STEP 1
 2335 IF ABS (n)<=1 THEN LPRINT "pu;": LET x=36*n: LET y=-10000/(n+0.1): GO SUB 1000: BEEP 0.02,10: NEXT n
 2340 LET x=36*n
 2350 LET y=-10000/n
 2355 IF y>10400 THEN LPRINT "pu;": NEXT n
 2360 LPRINT "pd;": GO SUB 1000
 2370 NEXT n
 2380 LPRINT "pu5200,3700;"
 2390 RETURN