home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a044 / 3.ddi / MISC / LOOP2.PRG < prev    next >
Encoding:
Text File  |  1993-08-31  |  130 b   |  12 lines
  1. nvar = 1
  2. DO WHILE nvar < 10
  3.   CHKEVENT()
  4.   @ nvar,10 SAY 'Hello'
  5.   INC nvar
  6.   IF nvar < 5
  7.     nvar = 1
  8.   ENDIF
  9. ENDDO
  10.  
  11.  
  12.