'Program Name    : DotDisp - Moving Dot Display
'Author          : Spectra Publishing - Tech Support  Lloyd L. Smith
'Date            : 09-19-90
'Compuserve #    : GO PCVENB, Vendor #12,  Tech Support ID 71530,2640
'Tech Support BBS: 813-625-1721, PC-Board, 8,n,1 USR HST 300 - 14.4, 24hrs
'Tech Support Fax: 813-625-1698  G2 & G3 compatible
'Tech Support Voc: 813-625-1172

defint a-z

'message to be displayed
a$="POWER BASIC, Spectra Publishing - Tech Support"

SCREEN 9, , 0, 0
gosub ScreenPrep
SCREEN 9, , 1, 1
gosub ScreenPrep

dsp=0:screen 9,,0,0

'Main Program Loop
 FOR z = 1 TO 7*len(a$)
 K$ = INKEY$: IF K$ = CHR$(27) THEN screen 9,,0,0:SYSTEM
  gosub display
'Char Scan and Screen Illuminate Routines
x = 0: y = 254
OY = 0: OX = 0
FOR j = 0 TO 13
OX = 0
FOR i = 0 TO 57
a = POINT(x + i+xx, y + j)  'this examines pixels, if white then paint
IF a = 15 THEN PAINT (10 + OX, 10 + OY), 14, 8 ELSE PAINT (10 + OX, 10 + OY), 0, 8
OX = OX + 10
NEXT i
OY = OY + 9
NEXT j
xx=xx+1   'read offset variable
NEXT z

screen 9,,0,0:end

Display:
if dsp=0 then screen 9,,0,1:dsp=1:return
if dsp=1 then screen 9,,1,0:dsp=0:return
return

'Routine to set up dots across screen
ScreenPrep:
LOCATE 19, 1: PRINT a$;
OY = 0
FOR j = 1 TO 14
OX = 0
FOR i = 1 TO 60
CIRCLE (10 + OX, 10 + OY), 5, 8
OX = OX + 10
NEXT i
OY = OY + 9
NEXT j
return