home *** CD-ROM | disk | FTP | other *** search
/ Boston 2 / boston-2.iso / DOS / PROGRAM / BASIC / POWBASIC / LIBRARY1 / GRAPH1.ZIP / DOTDISP.BAS < prev    next >
BASIC Source File  |  1990-09-20  |  1KB  |  59 lines
  1. 'Program Name    : DotDisp - Moving Dot Display
  2. 'Author          : Spectra Publishing - Tech Support  Lloyd L. Smith
  3. 'Date            : 09-19-90
  4. 'Compuserve #    : GO PCVENB, Vendor #12,  Tech Support ID 71530,2640
  5. 'Tech Support BBS: 813-625-1721, PC-Board, 8,n,1 USR HST 300 - 14.4, 24hrs
  6. 'Tech Support Fax: 813-625-1698  G2 & G3 compatible
  7. 'Tech Support Voc: 813-625-1172
  8.  
  9. defint a-z
  10.  
  11. 'message to be displayed
  12. a$="POWER BASIC, Spectra Publishing - Tech Support"
  13.  
  14. SCREEN 9, , 0, 0
  15. gosub ScreenPrep
  16. SCREEN 9, , 1, 1
  17. gosub ScreenPrep
  18.  
  19. dsp=0:screen 9,,0,0
  20.  
  21. 'Main Program Loop
  22.  FOR z = 1 TO 7*len(a$)
  23.  K$ = INKEY$: IF K$ = CHR$(27) THEN screen 9,,0,0:SYSTEM
  24.   gosub display
  25. 'Char Scan and Screen Illuminate Routines
  26. x = 0: y = 254
  27. OY = 0: OX = 0
  28. FOR j = 0 TO 13
  29. OX = 0
  30. FOR i = 0 TO 57
  31. a = POINT(x + i+xx, y + j)  'this examines pixels, if white then paint
  32. IF a = 15 THEN PAINT (10 + OX, 10 + OY), 14, 8 ELSE PAINT (10 + OX, 10 + OY), 0, 8
  33. OX = OX + 10
  34. NEXT i
  35. OY = OY + 9
  36. NEXT j
  37. xx=xx+1   'read offset variable
  38. NEXT z
  39.  
  40. screen 9,,0,0:end
  41.  
  42. Display:
  43. if dsp=0 then screen 9,,0,1:dsp=1:return
  44. if dsp=1 then screen 9,,1,0:dsp=0:return
  45. return
  46.  
  47. 'Routine to set up dots across screen
  48. ScreenPrep:
  49. LOCATE 19, 1: PRINT a$;
  50. OY = 0
  51. FOR j = 1 TO 14
  52. OX = 0
  53. FOR i = 1 TO 60
  54. CIRCLE (10 + OX, 10 + OY), 5, 8
  55. OX = OX + 10
  56. NEXT i
  57. OY = OY + 9
  58. NEXT j
  59. return