home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
library
/
pb
/
library1
/
dotdisp.bas
< prev
next >
Wrap
BASIC Source File
|
1990-09-20
|
1KB
|
59 lines
'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