home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a040 / 2.ddi / SHRWARE4.ARC / MSALOGO.INC < prev    next >
Encoding:
Text File  |  1988-06-03  |  751 b   |  35 lines
  1. <<procedure GenLogo>>
  2. <<begin>>
  3. * LOGO.PRG
  4. SET COLOR TO W/B
  5. CLEAR
  6. @ 0,10 TO 18,69 DOUBLE
  7. STORE .25 TO TIME
  8.  
  9. * SCROLL UP
  10. STORE 1 TO COUNT
  11. DO WHILE COUNT < 8
  12. @ 1,15 SAY ;
  13. '              micros'
  14.  SCROLL 1,12,9,34,-1
  15. @ 17,15 SAY ;
  16. '                 research'
  17.  SCROLL 10,12,17,39,1
  18.  STORE INKEY(TIME) TO STOP
  19. STORE COUNT +1 TO COUNT
  20. ENDDO
  21. @ 9,15 SAY ;
  22. '              MicroSearch Associates'
  23. @ 21,15 SAY 'Microcode (C) Copyright 1988 MicroSearch Associates '
  24. @ 22,15 SAY '                             520 SE 44th Avenue '
  25. @ 23,15 SAY '                             Ocala, FL  3267l '
  26. STORE INKEY(3) TO STOP
  27. * SCROLL UP
  28. STORE 1 TO COUNT
  29. DO WHILE COUNT < 25
  30.  SCROLL 0,0,24,79,1
  31. STORE COUNT +1 TO COUNT
  32. ENDDO
  33. ** EOF()
  34. <<end>>
  35.