home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 15 / 15.iso / s / s070 / 1.img / YUAN.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1991-07-09  |  168 b   |  5 lines
  1. 10  PRINT CHR$(14)"QR0C2D320,240C10]";
  2. 20  FOR I=1 TO 239:LOCATE 1,1:PRINT CHR$(14)"C"I MOD 16"O320,240,"I"]";:NEXT
  3. 22  FOR I=239 TO 1 STEP -1:LOCATE 1,1:PRINT CHR$(14)"C0O320,240,"I"]";:NEXT
  4. 30  PRINT CHR$(14)"R1]"
  5.