home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a062 / 2.ddi / TUBE.PRG < prev   
Encoding:
Text File  |  1988-08-08  |  492 b   |  22 lines
  1. set devi to prin
  2. STORE 255 TO num
  3. STORE 0 TO count
  4. DO WHILE count<4
  5.    STORE 10 TO level
  6.    DO WHILE level>0
  7.       @ level, level TO 24-level, 79-level
  8.       STORE level - 1 TO level
  9.    ENDDO
  10.    STORE 10 TO level
  11.    DO WHILE level>0
  12.       @ level, level , 24-level, 79-level box "*"
  13.       STORE level - 1 TO level
  14.    ENDDO
  15.    STORE count+1 TO count
  16. ENDDO
  17. STORE 10 TO level
  18. DO WHILE level>0
  19.    @ level, level CLEAR TO 24-level, 79-level
  20.    STORE level - 1 TO level
  21. ENDDO
  22.