home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / database / clockcal.zip / ASCII.PRG next >
Text File  |  1991-01-27  |  881b  |  50 lines
  1. *** ASCII.prg
  2. *
  3. * (c) CTS, MRI 1991
  4. *
  5. PRIVATE xWIND,mTALK,mESCA,mCURS,X,Y
  6. xWIND='WN'+STR(RAND()*1000000,6)
  7. mCURS=SET('CURS')='ON'
  8. mESCA=SET('ESCA')='ON'
  9. mTALK=SET('TALK')='ON'
  10. SET ESCA OFF
  11. SET TALK OFF
  12. SET CURS OFF
  13. DEFI WIND &xWIND FROM 1,1 TO 21,78 COLOR W+/B,,RG+/N
  14. ACTI WIND &xWIND
  15. CLEAR
  16. X=0
  17. y=1
  18. @Y-1,2 say "XXX  0   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  XXX"
  19. do while x<257
  20.   if mod(x,16)=0
  21.     @Y,2 SAY IIF((X-16)<0,"",STR(X-16,3)) COLOR G+/B
  22.     @Y,70 SAY IIF((X-1)<0,"",STR(X-1,3))  COLOR G+/B
  23.     y=y+1
  24.   endif
  25.   @ y,(mod(x,16)*4)+7 say chr(x) COLOR GR+/B
  26.   x=x+1
  27. enddo
  28. ?? SPACE(45)+"Press Esc when done!"
  29. I=0
  30. DO WHILE .T.
  31.   IF I=27
  32.     EXIT
  33.   ENDIF
  34.   I=INKEY()
  35. ENDDO
  36. RELE WIND &xWIND
  37. IF mESCA
  38.   SET ESCA ON
  39. ENDIF
  40. IF mTALK
  41.   SET TALK ON
  42. ENDIF
  43. IF mCURS
  44.   SET CURS ON
  45. ENDIF
  46. RETURN
  47. *** End of ASCII.prg
  48. *
  49.  
  50.