home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s069 / 2.img / WJ.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1992-10-09  |  301 b   |  11 lines
  1. 5  ON KEY(10) GOSUB 99
  2. 6  KEY(10) ON
  3. 10  INPUT F:IF F=0 THEN F=5
  4. 20  PRINT CHR$(14)"QR0]";
  5. 30  A=RND*639:B=RND*349:C=15*RND:D=16*RND
  6. 40  GOSUB 50:E=E+1:IF E=F THEN E=0:GOTO 20 ELSE GOTO 30
  7. 50  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]"
  8. 60  RETURN
  9. 98  PRINTCHR$(14)"R1]":END
  10. 99  RETURN 98
  11.