home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s069 / 2.img / ZL.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1992-10-09  |  228 b   |  9 lines
  1. 10  ON KEY(10) GOSUB 80
  2. 20  KEY(10) ON
  3. 30  CLS:PRINT CHR$(14)"QR0C15O320,240,200D320,240]INSERT F10 KEY TO QUIT";
  4. 40  FOR I=1 TO 15:PRINT CHR$(14)"C"I"]";
  5. 50  FOR J=0 TO 360:LOCATE 1,1:PRINT CHR$(14)"L/199,"J"]";:NEXT
  6. 60  NEXT:PRINTCHR$(14)"R1]"
  7. 70  PRINTCHR$(14)"R1]":END
  8. 80  RETURN 70
  9.