Listing of file='COINS.BAS;01' on disk='vmedia/taylor_2-sector.ccvf'
5 H= 0:T= 0 10 FOR I= 1TO 50 15 IF RND (I^ .3)< 0.5THEN 100 20 PRINT "H"; 25 H= H+ 1 30 GOTO 200 100 PRINT "T"; 150 T= T+ 1 200 NEXT I 210 PRINT 250 PRINT "NO. HEADS =",H,"NO. TAILS =",T 260 FOR I= 1TO 50 270 PRINT RND (I); 280 NEXT I 300 END