Compucolor.org – Virtual Media

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