home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s070 / 1.img / WJ.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1991-07-09  |  194 b   |  6 lines
  1. 5  PRINT CHR$(14)"QR0";
  2. 10  A=RND*639:B=RND*349:C=15*RND:D=16*RND
  3. 20  GOSUB 30:GOTO 10
  4. 30  LOCATE 1,1:PRINT CHR$(14)"C"C"D"A","B"K"D"L+12,36L+38,0L-31,22L+12,36L-31,-22L-31,22L+12,-36L-31,-22L+38,0L+12,-36]"
  5. 40  RETURN
  6.