lang/basic/test/grafiek.b

   1 0015  print
   2 0020 for f =2 to 72 step 2
   3 0030 print tab (f) "-" ;
   4 0040 next f
   5 0043 print
   6 0045 c= 30
   7 0050 for x=6 to 360 step 12
   8 0060 a=30 +25*sin(x*0.01745329)
   9 0070 b=30+25*cos(x*0.01745329)
  10 0080 if a=c then 0130
  11 0090 if b=c then 0190
  12 0100 if a=b then 0230
  13 0110 if a>c then 0290
  14 0120 if c>a then 0380
  15 0130 if a>b then 0360
  16 0140 ifb>a then 0170
  17 0150 print tab(b) "." tab(a) "*"
  18 0160 goto  0460
  19 0170 print tab(a) "*" tab(b) "."
  20 0180 goto 0460
  21 0190 if a>b then 0210
  22 0200 if b>a then 0220
  23 0210 goto 0150
  24 0220 goto 0170
  25 0230 if a>c then 0250
  26 0240 if c>a then 0270
  27 0250 print tab(c) "I" tab(a) "*"
  28 0260 goto  0460
  29 0270 print tab(a) "*" tab(c) "I"
  30 0280 goto 0460
  31 0290 if b>a then 0340
  32 0300 if a>b then 0302
  33 0302 if c>b then 0320
  34 0305 if b<a then 0360
  35 0310 if b>c then 0360
  36 0320 print tab(b) "." tab(c) "I" tab(a) "*"
  37 0330 goto 0460
  38 0340 print tab(c) "I" tab(a) "*" tab(b) "."
  39 0350 goto 0460
  40 0360 print tab(c) "I" tab(b) "." tab(a) "*"
  41 0370 goto 0460
  42 0380 if a>b then 0430
  43 0385 if c>b then 0410
  44 0387 if  b>c then 0450
  45 0395 if a>b then 0410
  46 0400 if b>a then 0450
  47 0410 print tab(a) "*" tab(b) "." tab(c) "I"
  48 0420 goto 0460
  49 0430 print tab(b) "." tab(a) "*" tab(c) "I"
  50 0440 goto 0460
  51 0450 print tab(a) "*" tab(c) "I" tab(b) "."
  52 0460 next x
  53 0470 end
  54
  55