home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
DP Tool Club 26
/
CD_ASCQ_26_1295.iso
/
vrac
/
shwtxt19.zip
/
FADES.ST
< prev
next >
Wrap
Text File
|
1995-02-01
|
767b
|
22 lines
'FADES.ST - PROGRAM TO PUT FADES ON THE SCREEN
:BEGIN\ ON INTKEY0 ESC GOTO QUIT \ RIGHT MOUSE ESC \ CSR ON 0 TO 7
COPY(FADES1,1) \ COPY(FADES2,2) \ SCREENSAVER 1 \ COPY(1,0)
:KEYIN\ WAITKEY 0,KEYIN
IF CLK (24,43,24,47) QUIT
IF CLK (17,63,19,78) ALL
IF CLK (4,2,22,19) OK
IF CLK (4,22,22,39) OK
IF CLK (4,42,22,59) OK
IF CLK (4,62,22,79) OK
GOTO KEYIN
:OK \ V0=[.R] \ V0=V0-4 \ V1=[.C] \ V1=V1/20 \ V1=V1*19
V1=V1+V0 \ IF V1>64 KEYIN
SAVE \ COPY(2,0)V1 \ WAITKEY \ RESTORE \ GOTO KEYIN
:ALL \ ON INTKEY0 ESC GOTO BEGIN
FOR V0=0 TO 64 \ V1=V0 & 1 \ IF V1=1 ODD
COPY(1,0)V0 \ GOTO NXT
:ODD \ COPY(2,0)V0
:NXT \ NEXT V0 \ GOTO BEGIN
:QUIT \ EXITC