Added experimental makepkg-update-checksums.sh
[mirrors/Programs.git] / turbobasic / 1998 / CIS1AZ10.BAS
1 SCREEN 1
2 V=TIMER
3 PRINT "CAS" V
4 V=INT(((V-INT(V))+.2)*10)
5 PRINT "DALE" V
6 FOR I=1 TO 19
7 A=INT(RND*V+1)
8 IF A=11 THEN A=A-V+1
9 PRINT A
10 NEXT I
11 SOUND 1200,2\1a
This page took 0.744783 seconds and 4 git commands to generate.