100 REM REVELATION DEMO
110 REM COPYRIGHT 1992 - COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED
120 :
130 IF A<>0 THEN 150
140 A=255:LOAD"REVELATION",8,1
150 V=53248:SA=52700:POKEV+32,0:POKEV+33,0:PRINTCHR$(147);:POKE646,14
160 BL=52916:SYSSA,0,1,0,"THIS DEMONSTRATION SHOWS HOW TEXT CAN BE"
170 SYSSA,0,3,0,"REVEALED SMOOTHLY":SYSSA,27,3,0,"ON THE SCREEN"
180 SYSSA,18,3,0,"ANYWHERE":SYSSA,3,5,0,"TEXT CAN BE DISPLAYED IN ANY":A$=""
190 B$="COLOR":FORT=1TOLEN(B$):READX:A$=A$+CHR$(X)+MID$(B$,T,1):NEXT
200 SYSSA,32,5,0,A$:A$=CHR$(18)+CHR$(158)+"OR WITH REVERSE ON AND OFF"
210 SYSSA,7,7,0,A$:SYSSA,0,0,0,"":POKE646,4:POKEBL,1:POKEV+39,5:POKEBL,1
220 POKEV+39,4:SYSSA,5,9,0,"TEXT CAN ALSO BE CURSOR DRIVEN":SYSSA,0,0,0,""
230 POKEBL,0:SYSSA,4,11,0,"AND CAN BE REVEALED AT ANY":A$="SPEED"
240 FORT=1TOLEN(A$):SYSSA,30+T,11,T,MID$(A$,T,1):NEXT
250 SYSSA,2,13,0,"TEXT CAN SCROLL LIKE NORMAL AS WELL:":POKE646,10
260 Y=14:FORT=3.14TO6.28STEP.2:C=COS(2*T)+SIN(T):X=6*C+12:Y=Y+1
270 SYSSA,X,Y,0,"SCROLLING":NEXT:SYSSA,X,Y,0,"":FORT=0TO1E3:NEXT:POKE646,3
280 PRINTCHR$(147);:SYSSA,0,1,0,"DISPLAY OF TEXT IS INTERRUPT DRIVEN TOO:"
290 POKE646,13:A$=CHR$(18)+"THAT'S ALL FOLKS !!!":SYSSA,10,3,3,A$
300 FORT=0TO4:PRINTCHR$(17):NEXT:END
310 DATA158,30,31,153,150,5