;redcode ;name Fundamental II ;author John Metcalf ;strategy Switch every other round, ;strategy regardless of results. ;assert 1 pswi: ldp #41,pung add #1,pung stp pung,#41 mod #4,pung pung: slt #1,#0 jmp STONE ;[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 --------------------------------------