Adding flipscreen code to screens

[Devilmarkus]

You perhaps made some nice flip-screens? (2 screens, which one loads to &C000 and the other to &4000) and you want to flip them?

In the case, both screens have the same MODE and PALETTE you can add this code to your screens:

Code Select Expand

10 AD=&E7D0:L=&0026:MODE 1:LOAD"SCREEN",&C000
20 READ a:POKE AD+P,a
30 P=P+1:IF P=L THEN SAVE"SCREEN",B,&C000,&4000:END
40 GOTO 20
50 DATA &01,&0C,&BC,&ED,&49,&01,&10,&BD,&ED,&49,&CD,&19,&BD,&01,&0C,&BC
60 DATA &ED,&49,&01,&30,&BD,&ED,&49,&CD,&09,&BB,&FE,&20,&CA,&F5,&E7,&CD
70 DATA &19,&BD,&C3,&D0,&E7,&C9

just replace "SCREEN" in line 10 and 30 against your screen filename.

Use this code on both screens and it will work fine.

Load your screens after this patch to:
Screen A to &C000
Screen B to &4000
Do a CALL &E7D0 and the flipping starts.
A press on space stops it and returns to BASIC

Simple!

[Gryzor]

You always give use a demo vid

[MacDeath]

I'm not a huge fan of the flip screen of death by epylepsy nosebleed brain explosion of death...




but thx anyway.

[Devilmarkus]

You always give use a demo vid

Maybe, but this video would have 2 frames only, so no video required.

[robcfg]

An animated gif then?