Moved old turbobasic files to directory 1998 and added new directory for new files

[mirrors/Programs.git] / turbobasic / 1998 / CIS1AZ10.BAS

SCREEN 1
V=TIMER
PRINT "CAS" V
V=INT(((V-INT(V))+.2)*10)
PRINT "DALE" V
FOR I=1 TO 19
A=INT(RND*V+1)
IF A=11 THEN A=A-V+1
PRINT A
NEXT I
SOUND 1200,2\1a