Turbo Toolbox/Turbo_Toolbox.iso/1991/04/txl/1_preis/while1.txl

Text File | 1991-01-08 | 168b | 13 lines

005 cls;
010 let b=0;
012 while b<3;
014 let a=0;
020 while a<4;
030 print "Wert von a ist ",a;
040 let a=a+1;
050 wend;
060 let b=b+1;
070 wend;
080 end;