05-10-2002, 02:03 PM
If you are going to use PCOPY you can only use 16 colors, becouse
you can only use PCOPY in screen 7 and screen 9.
SCREEN 7 = 320x200
SCREEN 9 = 640x350
Without PCOPY:
With PCOPY:
I know that using CLS makes it flicker, but this is only an example.
you can only use PCOPY in screen 7 and screen 9.
SCREEN 7 = 320x200
SCREEN 9 = 640x350
Without PCOPY:
Code:
SCREEN 7
RANDOMIZE TIMER
DO
CLS
Keypress = INP(&H60)
CircleColor = INT(RND * 14) + 1
CIRCLE (160, 100), 119, CircleColor
PAINT (160, 100), CircleColor
DEF SEG = 0: POKE &H41A, PEEK(&H41C)
LOOP UNTIL (Keypress = 1)
With PCOPY:
Code:
SCREEN 7, 0, 0, 1
RANDOMIZE TIMER
DO
CLS
Keypress = INP(&H60)
CircleColor = INT(RND * 14) + 1
CIRCLE (160, 100), 119, CircleColor
PAINT (160, 100), CircleColor
WAIT &H3DA, 8
PCOPY 0, 1
DEF SEG = 0: POKE &H41A, PEEK(&H41C)
LOOP UNTIL (Keypress = 1)
I know that using CLS makes it flicker, but this is only an example.
isit Blind Coding