;redcode ;name Flash Paper3.7 ;author Matt Hastings ;A macrorized version of Flash Paper3.7 ;assert CORESIZE == 8000 s01 EQU -2340 s02 EQU 5823 s03 EQU 1000 s04 EQU 6109 s05 EQU 3009 s06 EQU 4832 s07 EQU 1080 s08 EQU -3040 s09 EQU -3040 m01 EQU 1020 m02 EQU -740 m03 EQU -3690 m04 EQU 1873 m05 EQU -200 m06 EQU -1830 m07 EQU 4096 m08 EQU -195 m09 EQU -195 mark EQU mark0+1 spl stst,<-2050 spl 1,<440 spl 1,<460 spl mark+9,<2113 spl mark+18,<2140 spl mark+27,<2720 spl mark+36,<-4000 spl mark+45,<-4020 spl mark+54,<3360 spl mark+63,<-970 mark0 paper for 9 mov #8, 8 mov <-1, <2 mov <-2, <1 spl @0, s&paper mov <-1, m&paper jmz -5, -5 mov 0, -1 for paper < 9 dat #0, #1 dat #0, #1 rof rof stst spl st,<-2030 spl st,<750 spl st,<-2630 spl st,<-4533 spl st,<-1153 spl st,<-453 st spl 0,0 mov <2860,-2858 add 2,-1 djn -2,<2920 dat #948,#-948 end