;redcode ;name Fundamental III ;author John Metcalf ;strategy Switch on loss,tie or win. ;strategy Thats right, always switch. ;assert 1 pswi: ldp #41,pung add #1,pung stp pung,#41 mod #2,pung pung: jmn STONE,#0 ;[TIMESCAPE] Start at the label PAPER TSTEP EQU 1800 CSTEP EQU 3740 NSTEP EQU -1922 FSTEP EQU 1870 PAPER SPL 1,<-200 SPL 1,<-300 MOV.I -1,0 TIM1 SPL @TIM1,}TSTEP MOV.I }TIM1,>TIM1 CEL1 SPL @CEL1,}CSTEP MOV.I }CEL1,>CEL1 MOV.I {-FSTEP,NSTEP DAT 0,0 DAT 0,0 ;[CARBONITE] Start at the label STONE DBOMB DAT >-1,>1 STONE SPL #0,<-100 MOV DBOMB,TAR-197*3500 TAR ADD #197,-1 DJN.F -2,<-1151 end pswi --------------------------------------