home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / baslib2.zip / TURKEY.BAS < prev    next >
BASIC Source File  |  1987-03-22  |  1KB  |  38 lines
  1.  DIM P(98),D(98)
  2.  CLS:LOCATE 10,4,0
  3.  PRINT "                    -->-- Turkey In The Straw --<--"
  4.  PRINT :PRINT "                             QuickBasic 2.01"
  5.  PRINT "                             By Dennis Dreyer, 1987"
  6.  For W= 1 to 1500:next W
  7.  FOR R=1 TO 5
  8.  RESTORE
  9.  FOR I=1 TO 98:READ P(I),D(I):NEXT I
  10.  FOR I=1 TO 98:SOUND P(I),D(I)*2
  11.  
  12. RANDOMM:
  13.  REM Get random numbers for C, D, and E
  14.  randomize(timer)
  15.  C= int((7-1+1)*RND + 1)
  16.  if c <1 or c >7 then goto RANDOMM
  17.  D=int((23-1+1)*rnd + 1):E=int((75-2+1)*rnd +1)
  18.  locate D,E:color C:print p(i)
  19.  NEXT I
  20.  NEXT R:CLS:END
  21.  
  22.  DATA 220,1,247,1,262,1,248,1,262,1,294,1
  23.  DATA 262,1,196,1,165,1,175,1,196,1,220,1
  24.  DATA 196,1,165,1,196,2,262,1,294,1,330,1,30000
  25.  DATA 1,330,1,30000,1,330,1,294,1,262,1,294,1
  26.  DATA 330,2,294,2,294,2,330,1,294,1,262,1
  27.  DATA 247,1,262,1,294,1,262,1,196,1,165,1
  28.  DATA 175,1,196,1,220,1,196,1,165,1,196,2,262
  29.  DATA 1,294,1,330,1,392,1,30000,1,440,1,392,1
  30.  DATA 330,1,262,1,294,1,330,2,294,2,262,2,30000
  31.  DATA 2,330,1,392,2,330,1,392,2,392,2,330,1,392,2
  32.  DATA 330,1,392,4,349,1,440,2,349,1,440,2,440,2
  33.  DATA 349,1,440,2,349,1,440,2,440,1,494,1,523,2
  34.  DATA 523,2,392,2,392,2,330,2,330,2,294,2,262,1
  35.  DATA 294,1,330,1,392,1,30000,1,440,1,392,1,330,1
  36.  DATA 262,1,294,1,330,2,294,2,262,2,30000,4
  37.  
  38.